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Wie schon im ersten „Special“ ver- 
sprochen: Der Nachfolger ist da. 
Wieder mit einem attraktiven 
Inhalt. Waren die „Gambler“ in 
unserem ersten Special sehr stief- 
mütterlich behandelt worden, in 
dieser Ausgabe dürften Sie nicht © DM 14,80 
über den Mangel an Spielen klagen h Ös 124 
können. 
Wobei'wir eine Maxime obenauf 5 SFR 14,80 
schrieben: Es geht auch ohne 
Ballern! 

Deshalb Denkspiele, Adventures, 
auch mal eine gelungene Umsetzung 
bekannter Brettspiele. Der Schuß- 
finger wird allerdings kaum benö- 
tigt, höchstens zum Weitermachen... 
Damit aber die ernsthaften Anwen- 
der nicht meinen, dies sei eine 

reine „Spieler-Zeitschrift”: Für sie 
sind ausreichend Programme vor- 
handen, mit denen wirklich gear- 
beitet werden kann. Ob es die 
Lohn- und Gehaltsabrechnung ist, 
die in einem kleinen Betrieb einge- 
setzt wird, das Adress- und Telefon- 
register oder eine ganz raffiniert 
ausgetüftelte Dateiverwaltung: 
Jedes dieser Programme allein ist 
schon den Kaufpreis dieses Heftes 
wert, denn sie sind von CPC-Profis I —_ en 

für den professionellen Einsatz 
geschrieben. ge 2 . 

Nicht vergessen haben wir auch jene 
Anwender, die nach kleinen 
Utilities suchen, um sie in ihre eige- 
nen Programme einzubinden, von 
der neuen Ready-Meldung über das 
Einbinden von RSX-Befehlen bis 


Programm... 


zur Superhardcopy, die wirklich 

DIN A4 druckt — quer, eine nach e 

unserer Auffassung gelungene Hi fen * 
Mischung für jeden Interessenten, x _ 
der mit seinem Computer arbeiten .i ® S 
möchte. 


Bis zum nächsten Heft, 
Ihr SCHNEIDER AKTIV-Team 


HOTLINE: 
JEDEN MONTAG 15-19 UHR 


PS: Und nicht vergessen: Sind Sie 
A TEL. 089/129 80 13 


Sie es uns. 
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bewertet ab Seite 138 
Zorgos: 


Der Held spricht deutsch ab Seite 140 


LISTINGS 


Cricks: 

Achtung vor dem blinden 
Geist und seinem 
mißratenem Sohn! ab Seite 10 
Dimmer-Demo: 
Nützliches Utility für 
alle CPC auf Seite 15 
Poltergeist: 

Hat nichts mit dem 
gleichnamigen Film zu 
tun, aber... ab Seite 16 
Adress- und Telefonverzeichnis: 

Damit kann sogar eine 

kleine Firma etwas anfangen, 
eben kein billiges 
Adress-Register! ab Seite 24 
Senso: 

Spielen Sie die Töne 
nach... ab Seite 30 
Punktezähler: 

Für Kartenfans, die zu faul 
zum Aufschreiben sind ab Seite 32 
Kalorien-Tabelle: 

Für Gewichtsbewußte, 
Diätplaner und 
Küchenchefs ab Seite 36 
Egghead: 

Ob Sie das schaffen? ab Seite 49 
Latein-Vokabeltrainer: 
Delirant istis Romani — hä? ab Seite 53 
Garfunkel: 

Nur Energie-Nebel aus dem 
All können Ihr Raum- 
schiff noch retten! ab Seite 59 
Wörter schieben: 

Knobeln, wie das Wort 


zustandekommt ab Seite 63 


TIV SPECIAL Nr. 2/87 


Haushalts-Buchführung: 
Eine einfache Einnahmen- 
Ausgabenrechnung, auch für 
Computerlaien bedienbar! abSeite 65 
Designer: 

Ein Zeichenprogramm, das 
kaum noch Wünsche 

übrig läßt ab Seite 76 
Laufschrift: 

So machen Sie die Titel Ihrer 
Programme attraktiver ab Seite 86 
Mensch ärgere Dich nicht: 

Hier kann nicht 


geschummelt werden! ab Seite 88 


BERBIENZUEBETTG BI 
EESEET BRITEN E 
EERTBLITT BEE DR 


Universal-Datei: 

Universelles Dateiverwaltungs- 
programm mit vielen 
Vorzügen — nur für 
Floppy-Betrieb ab Seite 92 
Super-Hardcopy: 

Druckt automatisch quer — 
in allen drei Modis! ab Seite 101 
Entscheidungsmatrix: 

Ein Computer entscheidet 
ohne Gefühle — lassen Sie 
sich helfen ab Seite 106 
Ready: 

Gestalten Sie Ihren 
eigenen Prompter auf Seite107 
Big Text: 

Dreidimensionale Schriften 


— kein Problem ab Seite 108 
Fill: 

So kommt der RSX-Befehl 

auch zum 464! ab Seite 110 
Scarbury Castle: 

Verirren Sie sich nicht in 

den vier Schloß-Etagen! ab Seite 112 


Lohnabrechnung: 

Warum teure Profi-Software? 
Dieses Programm errechnet 
Löhne und Gehälter, druckt 
aus, berechnet Aushilfslöhne, 
verwaltet Stammdaten und 


noch viel mehr ab Seite 123 


SCHNEIDER AKTIV SPECIAL erscheint 
4x jährlich in der CA-Verlags GmbH (i.G.), 
Heßstraße 90, 8000 München 40. 

Tel.: 089/129 80 11. Telex 5214428 cav d 
ANSCHRIFT DER REDAKTION: 
Postfach 1107, 8044 Unterschleißheim 


CHEFREDAKTEUR und verantwort- 
lich für den Inhalt: Gert Seidel 

Alle Artikel, bei denen der Name oder die 
Initialen des Verfassers am Ende des 
Artikels stehen, geben ausschließlich die 
Meinung des Verfassers — nicht die Mei- 
nung des Verlages bzw. der Redaktion 
wieder. 


VERTRIEB: Verlagsunion, 
6200 Wiesbaden 


ANZEIGEN: Es gilt Anzeigen-Preisliste 
Nr. 7/87 


EINZELBEZUGSPREIS: 
DM 14,80 DM, 124 ÖS, 14,80 SFR 


ABONNEMENTBEZUG: 
Inland 60,— DM, Europa DM 80,— 
inkl. Porto und Verpackung. 


jeweils 


Copyright by CA-Verlag, Postfach 

1107, 8044 Lohhof. Jedweder Nachdruck 
jedwede Vervielfältigung, gleichgültig auf 
welchem Wege, jedwede elektronische 
Weitergabe, jedwede Verwertung aller Bei- 
träge einschließlich der abgedruckten 
Programme untersagt. Alle Beiträge dieser 
Zeitschrift unterliegen dem Urheberrecht. 
Jedwede wirtschaftliche Verwertung be- 
dingt Schadensersatzansprüche. 
Nachdruck nur mit ausdrücklicher schrift- 
licher Zustimmung des Verlages. 


BEITRAGSEINSENDUNG: Beitragsein- 
sendungen bitte an die Redaktion. 

Mit der Einsendung von Beiträgen stimmt 
der Verfasser dem ausschließlichen Ab- 
druckrecht des Verlages zu und überträgt 
dem Verlag das Copyright. Für unverlangt 
eingesandte Manuskripte, Datenträger und 
Fotos keine Haftung des Verlages. Es gel- 
ten die Honorarbedingungen der jeweils 
gültigen Honorarliste als vereinbart, wenn 
keine sonstige schriftliche Vereinbarung 
getroffen wurde. Honorarzahlungen für 
eingesandte Listings beinhalten das Ab- 
druck-, Nutzungs- und Verwertungsrecht 
im Programmservice des Verlages sowie 
den Übergang des Urheberrechtes auf den 
Verlag. Das Urheberrecht am Verlags- 
produkt hat der Verlag. 


Geschäftsführer und verantwortlich für 
Anzeigen: Werner E. Seibt. 


Kassetten-Service: Henny-Rose Seibt 
Printed in Germany 
Erstverkaufstag dieser Ausgabe 20.3.1987 


EEE 
NEN ENZENY 


TER nr N 


x 


AS 


TEST 


AN TERCEFTOR 
AMITROS FRES 


a) 
| 


DAVID M. Bi 


GEAFHICS Er TE 


4 


TEST 


Fast jeder CPC-Besitzer, der sich schon einmal Kopierbarkeit dieser Programme. Aus der gleichen 
an Text-Adventures auf Englisch versucht hat, kennt Abenteuerschmiede von Interceptor Micro’s, 
„Message from Andromeda“, „Forest at World’s End’ vom gleichen Autor David Banner, vom gleichen 

und „Jewels of Babylon’. Die Verbreitung dieser Grafiker Terry Greer stammt auch das weitgehend 
Adventures liegt zum einen sicher an der frühen Ver- unbekannte Text-Grafik-Abenteuer 
fübarkeit, zum anderen an der überaus leichten „Warlord’'. 


Das Programm ist 1985 

in Großbritannien erschie- 
nen, also nach den oben 
genannten Programmen, 
und läßt sich mit den üb- 
lichen, allgemein bekann- 
ten Methoden nicht ko- 
pieren oder auf Diskette 
überspielen. 

h Das Hauptprogramm liegt 
Mi als headerloses File (er- 
heblicher Länge) vor, 
welches durch einen eige- 
FARM nen Lader in den Spei- 

cher gebracht wird. Vor- 
her läuft ein Progrämm- 

; chen, das einen CPC 664 
’ in den kompatiblen CPC 
464-Modus umadressiert, 
sehr bequem für die we- 
nigen Besitzer. Ich vermu- 
te, daß das Adventure 
dadurch auch auf dem 
CPC 6128 laufen kann, 
ein Bestätigungsversuch 
fehlt allerdings. Solche 
Inkompatibilitäten oder 
Kopierschwierigkeiten be- 
hindern natürlich die Ver- 
breitung des Programmes, 
aber darin liegen wohl 
kaum die Interessen ei- 

4 > nes Programmierers. 

Ha | Für den User ist allerdings 

RT die Nutzung von Casset- 
MR ten-Software eine Plage: 

„Warlord‘“ z.B. hat eine 

Ladezeit von ca. 15 Minu- 
ten, ganz entsetzlich. 

Wie schön wäre es, wenn 
A | solche Programme eine 
= ee RL eigene Disk-Überspiel- 
P BB #E Routine hätten. Auf 

E Dauer kann eine Cassette 
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REITEN GERT KON . : . 
ja sowieso nicht benutzt 


2 werden, irgendwann tre- 
ET ten unweigerlich Lade- 
ug N fehler auf, die auch nicht 

PR immer durch Kopfspalt- 

ER justage zu beseitigen sind. 
Auch bei Spielen gilt al- 

; | so die alte Regel der EDV: 
Backup, Backup, Back- 


RER ELIERN 


up. 

Seit ich einen Mirage 

Imager besitze, arbeite 

ich nur noch mit Sicher- 
heitskopien aller meiner 
Programme (Interceptor 
kann gerne die rechte un- » 
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tere Ecke meines Titel- 
und Anweisungsblattes 
anfordern, ich habe das 
Programm für unglaubli- 
che DM 9,95 erstanden, 
aber das war wohl ein 
Räumungsangebot eines 
meiner Softwareläden). 
Wenn doch alle Software 
so ihren Preis wert wäre!! 
Wer esnoch nicht weiß: 
Der Mirage Imager ist ei- 
ner der beiden für den 
Schneider bzw. Amstrad 
erhältlichen Hardware- 
zusätze (knapp DM 
200,—), die den komplet- 
ten RAM-Inhalt in einem 
bestimmten Zeitpunkt 
auf Diskette (oder Tape) 
rüberziehen können. 
Menügestuert wird dann 
geSAVEd mit eigenem 
Filenamen xxxxxxx.IMG 
und auf Wunsch wieder 
eineeladen mit dem ak- 
tuellen Stand; für Spiele 
zwischendurch ideal. 


PARSER NUR 
MITTELKLASSE 


Zurück zu Warlord. Das 
ist ein gutes Adventure 
und ich will erläutern, 
warum. Der verwendete 
Parser ist nur Mittelklasse, 
das erlaubte und verstan- 
dene Vokabular ist nicht 
sonderlich umfangreich, 
für deutsche Adventure- 
Freaks aber angemessen, 
manchmal erwartet er zu 
große Genauigkeit in der 
Wortwahl, z.B. ‚lean 
ladder against platform“ 
versteht er (ist übrigens 
ein massiver Tipl), aber 
nicht ‚‚lean ladder to/ 
at/on to/unto platform“. 
Solche Kleinigkeiten hal- 
ten manchmal ganz 
schön auf, gehören aber 
wohl zum üblichen Spiel 
bei Adventures. Es gibt 
Schlimmeres. 

Die Story und die Aufga- 
be sind auch nichts Unge- 
wöhnliches: Im ersten 
Jahrhundert erobern die 
Römer so nach und nach 
die ganze Welt, auch (das 
heutige) Großbritannien. 
Die Kelten wurden weit- 
gehend überrollt, nur an 
der heutigen Grenze nach 
Schottland war plötzlich 
Schluß. Da blieb den 
Römern nichts anderes 


übrig, als den Hadrian’s 
Wall zu bauen, so in der 
Art wie der Limes früher 
quer durch Deutschland. 
Die Schotten zeigen den 
Touristen noch heute 
gern die Reste. 

Wer es historisch nicht so 
genau nimmt, weiß nach 
dem Bestehen des Spie- 
les. daß er selbst. als 
großer Warlord, dieses 
Ende der römischen In- 
vasion verursacht hat. 

Als (namenloser) kelti- 
scher Held sind Sie in eine 
„Otherworld‘ versetzt, 
um den Kampf gegen Rom 
zu gewinnen. Einige Wid- 
rigkeiten sind zu überwin- 
den, die keltische Um- 
welt ist erst nach Anfangs- 
erfolgen bzw. Freundlich- 
keiten kooperativ, der 
Rest sind die üblichen 
Fähigkeiten eines Adven- 
tures auf seinem “Quest‘“. 
Die Gegner stellen keine 
ernsthaften Schwierigkei- 
ten dar. Der Klappentext 
„for advanced players“ ist 
also deutlich übertrieben, 
denn wer „Forest at 
World’s End“ ohne Hilfe 
(z.B. publizierte Komplett- 
lösungen, pfui Teufel!!!) 
geschafft hat, wird auch 
„Warlord‘ in einigen 
Tagen schaffen. 


FREUNDLICHES 
HILFSANGEBOT 


Falls jemand wirklich ernst- 


hafte Schwierigkeiten bei 
der Lösung haben sollte: 
Schreiben Sie mir unter 
dem Stichwort ‚„Map- 
maker Warlord‘“ an Schnei- 
der-aktiv (unbedingt mit 
frankiertem Umschlag). 
Rufen Sie im Spiel näm- 
lich „‚help“, antwortet das 
Adventure meist stereo- 
typ: “You don’t really 
need it.‘““. Ich dagegen 


sage: “Help is on the way“. 


Weil wir gerade bei den 
Tips sind: Vor jeder Ge- 
fahr, die man ahnt, sollte 
man den Zwischenstand 
speichern. Das Programm 
kennt die Eingaben 
„save“ und „load“, lei- 
der funktkoniert dies nur 
mit Cassette (bzw. einem 
Imager). Immerhin ein 
Fortschritt seit „Message“ 
und ‚„‚Forest‘. Die ande- 


ren zulässigen Komman- 
dos sind Standard: “I“ 
für Inventory, “L“ für 
Look, ““H“ für Help (siehe 
oben) und die Himmels- 
richtungen werden auch 
wie üblich abgekürzt. 

“Q“ für Quit gibt ja 

doch keiner ein, ‘“Score“ 
kann nicht abgekürzt 
werden. 

Bis hierhin also ein Aller- 


 welts-Adventure, keines- 


wegs „‚Infocom-Klasse‘“ 
(wo, verdammt nochmal, 
bleiben sie für unsere Com- 
puter?). Auch nicht das 
Niveau von „Level 9°, 
oh nein! Letztere sind 
sehr schwer, vom Text, 
vom Plot, machen aber 
riesig Spaß, die Grafik ist 
dabei bloß so lala, lätfst 
sich aber wenigstens ab- 
schalten. 


GRAFIK DER 
SPITZEN-KLASSE 


Infocom-Adventures (hat 
da wirklich einer noch nie 
vom „Hitchhiker’s Guide...“ 
gehört? Gibt’s doch 
nicht!!) sind absolute Spit- 
ze! Mein Geld dafür habe 
ich schon in der Tasche, 
wenn ich doch endlich 
eines für den CPC 464 
sehen würde! Aber auch 
dem schönsten Infocom 
Adventure fehlt eines, 
und das hat ‚‚Warlord‘“ 
sehr reichlich: Grafik der 
Spitzenklasse! 

Was Terry Greer hier auf 
den CPC-Schirm zaubert, 
ist einmalig: keine Ani- 
mation, sondern „‚stills““, 
also stehende Bilder aus 
Maschinen-Code erzeugt, 
wie sie kein anderer kann. 
Er ist im Verlauf seiner 
Tätigkeit immer besser 
geworden, schneller als 

bei „Forest at World’s 
End‘ und sogar noch 
schöner als ‚„Jewels of 
Babylon“. 

Das ist der einsame Grund, 
warum ich (bisher still, 
jetzt lauthals verkündet) 
jedes Adventure kaufte, 

bei dem er, Terry Greer 
für die Grafik verantwort- 
lich zeichnet. 

Die Titel-Grafik bietet ei- 
nen kleinen Vorgeschmack 
für seine Fähigkeiten, sei- 


Bitte lesen Sie weiter auf Seite 9 


Usanga, Häuptling der Wamabos, 
wurden sieben Edelsteine gestoh- 
len, die die Farben des Regenbogens 
symbolisierten. In solch einer Situa- 
tion kann nur Tarzan helfen. Aber 
statt höflichst um Hilfe zu bitten, 
entführt Usanga Lady Greystoke, 
der Fan-Gemeinde von Tarzan 
bestens bekannt als Jane. Als Gei- 
sel (sie soll in drei Tagen dem Geier 
geopfert werden) dient sie dazu, 
Tarzan zu erpressen. Innerhalb die- 
ser Frist muß er die ‚„‚Augen des 
Regenbogens“ auftreiben, um seine 
Geliebte wieder in die Arme schlie- 
ßen zu können. Für den Held aus 
Film und Fernsehen eine leichte 
Aufgabe, was aber passiert, wenn 
Sie seine Geschichte mit dem Joy- 
stick lenken, ist offen. 


ABENTEUERLICHES 
DSCHUNGEL-JOGGING 


Das Spiel meldet sich beim Einlesen 


mit einer vielversprechenden Titel- 
grafik, die Tarzan in seiner klassi- 
schen Pose an der Liane zeigt. Das 
Plakat ist nett gemacht, man merkt 
dem Programmierer die Mühe an, 
die er sich damit gegeben hat und 
läßßt sich dadurch gerne die etwas 
lange Ladezeit des eigentlichen Spie- 
les vertreiben. Wenn das Bild wech- 
selt und der Hinweis auf den Pro- 
grammierer Michael Croucher er- 
scheint, dann kann gestartet wer- 
den. Drei Sonnen zeigen zu Beginn 
des Abenteuers die verbleibende 
Spielzeit an und treiben zur Eile. 
Trotzdem sollten Sie einmal einen 
Durchgang opfern, um zu probie- 
ren, was „Ihr‘‘ Tarzan alles kann, 
denn dies ist eine ganze Menge. 
Ganz selbstverständlich bewegt er 
sich nach links oder rechts im 
Dauerlauf durch die Szenen. 
Schließlich geht es ja um seine Jane. 
Zur Überwindung einiger Hindernis- 
se, Fallgruben und Schlangen, ist 
erin der Lage, einen zirkusreifen 
Salto in Laufrichtung zu machen. 
Das bewahrt ihn unter Umständen 
vor tückischen Sumpfgebieten. 
Aber auch Tarzan muß sich duk- 
ken. Pfeile fliegen durch die Ge- 
gend, ab und zu springt ihn ein 
Panther an und ekelhafte Vogel- 
spinnen lassen sich von Bäumen 
herab. Eingeborene sind gleicher- 
maßsen hinter ihm her wie weiße 
Jäger. Da hilft nur ein kurzer Faust- 
kampf, um wenigstens in diesem 
einen Bild etwas Ruhe zu haben 
und nicht mehr belästigt zu 
werden. 

Als wären alle diese Widrigkeiten 
nicht genug, haben die Program- 
mierer dem Spiel auch ein paar 
Elemente des Adventures mitge- 


TEST 


Weltliteratur im CPC und kein Ende ist abzusehen. Aus den ersten Pacman- 
Bit’s sind mittlerweile die Helden klassischer Literatur geworden. 

Zu letzterem darf man wohl auch das Buch ‚‚Tarzan’’ von Edgar Rice 
Burroughs zählen, das nunmehr als Grundlage für ein neues CPC- 
Abenteuer diente. Es geht um ein eigens neu erfundenes Abenteuer, das 
der Herr des Urwalds zu bestehen hat. 
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geben. Zwar geht es vordringlich 
um die sieben magischen Juwelen, 
doch bei der Suche danach ist so 
mancher Gegenstand hilfreich. 
Unter einem relativ unscheinbaren 
schwarzen Kästchen verbirgt sich 
oft ein lebensnotwendiges Werk- 
zeug. Schilder, Seile und Taschen- 
lampen, letztere scheinbar funk- 
tionierende Überreste der weißen 
Jäger, können Tarzan in anderen 
Dschungelgegenden das Leben 
retten. Leider sind diese Hilfen eben- 
so schwer zu finden, wie die eigent- 
lichen Juwelen, so daß sich folgen- 
de Vorgehensweise empfiehlt: Gerät 
man in ein vielversprechendes Bild 
(das sind allerdings zuerst einmal 
fast alle), dann sollte man sich in 
aller Ruhe dem Kampf mit einem 
Eingeborenen oder Jäger stellen. 
Hat man diese vertrieben, was nicht 
allzu schwer ist, wird man am glei- 
chen Ort nicht mehr belästigt. 
Hierdurch hat man etwas mehr 
Ruhe (Tiere und Pfeile sind immer 
noch eine Gefahr), um nach den 
„Schatzkisten‘ zu suchen. 

ber Gegnern darf man nicht ver- 
gessen, daß Tarzan auch Freunde 
im Urwald hat, schließlich gilt er ja 
als Herr dieser Gegend. Von den 
Affen ist naturgemäß die größte 
Hilfe zu erwarten, waren sie es doch, 
die den Helden einmal großgezo- 
gen haben. 


TEST __ 


Tarzan ist, wie Sie oben gelesen ha- 
ben, eine Mischung aus den üblichen 
Adventureregeln und einer großen 
Portion Action. Das Rennen um die 
Juwelen und gegen die Zeit findet 
durch mehrere Szenen statt. Diese 
nehmen etwa die obere Hälfte des 
Bildschirms ein und vermitteln so 
fast das Gefühl eines Breitwandfil- 
mes. Natürlich ist ein Computermo- 


FLIESSENDE GRAFIK 


nitor keine Leinwand und ein Pro- 
gramm kein Film, doch man spürt; 
daß hier sehr großer Wert auf die 
Hintergrundbilder gelegt wurde. Die 
Grafik kann als sehr gelungen be- 
zeichnet werden. Sie ist übrigens, 
entsprechend der ablaufenden Spiel- 
zeit, mal hell, mal stockdunkel. Alle 
Bewegungen von Tieren oder Geg- 
nern des Helden sind fließend und 
nett anzuschauen. Doch am gelun- 
gendsten ist der Titelheld selbst. 
Das Sprite ist etwa 4 cm groß, be- 
wegt sich aber trotzdem ruckfrei 
und sauber durch den heimischen 
Urwald. Am originellsten sind 
Boxkämpfe, die er mit den diver- 
sen Gegnern auszutragen hat. Es 
macht Spaß, ihn dabei zu lenken. 
Der untere Teil des Bildschirmes 
bleibt zur Anzeige der gefundenen 


Gegenstände frei. Solange man 
noch erfolglos ist, bleibt hier eine 
kahle Fläche. 

Während des Spieles zeigt auch der 
Soundgenerator des CPC, was in 
ihm steckt. Eine schmissige, mehr- 
stimmige Melodie treibt Tarzan 
beim Dauerlauf an. Damit sind wir 
auch schon beim einzigen Kritik- 
punkt angelangt. Das Spiel sollte 
zu Beginn etwas leichter sein, um 
die Motivation zu erhöhen. Zwar 
kann ich mir nicht vorstellen, daß 
irgendjemand vorzeitig aufgibt, 

nur weil noch kein Juwel auftauch- 
te — hierzu macht Tarzan zuviel 
Spaß — aber einige leichtere Übun- 
gen zum „Eingewöhnen“ würden 
bestimmt nicht schaden. Da dies 
der einzige Kritikpunkt bleibt, ver- 
dient der gute alte Tarzan das Prä- 
dikat „Sehr empfehlenswert“. 


FAZIT 


Dabei gilt dieses Fazit für die gan- 
ze Familie. Tarzan muß sich zwar 
wacker durch die Gefahren boxen, 
ihn trifft auch hin und wieder mal 
ein vergifteter Pfeil, doch bleibt die 
Animation für Kinder geeignet. 
Diese werden an der Action des 
Helden die gleiche Freude haben 
wie Erwachsene an den kniffligen 
Aufgaben. 


WARLORD 


Fortsetzung von Seite 7 


nen Stil, aber die im Pro- wendet, 


Grafikpositionen auf, 

in MC, versteht sich. Die- 
se Shapes werden dann 
in den verschiedenen Bil- 
dern immer wieder ver- 


aber durch Ver- 


dene Farben (dauernd 
wechselnd), gepixelt, so 
daß man an höhere Auf- 
lösung glaubt. All das 
mit feinstem Gefühl, in 
bester Grafikertradition, 


ten Teams heißt ‚„‚Heroes 
of Car“. In Berlin habe 

ich es noch nicht erwer- 
ben können, aber dann...! 
Falls Sie „Warlord“ irgend- 
wo günstig erwischen Kön- 


gramm bei den verschie- 
denen ‚Locations‘ ge- 
zeigten Bilder gab es bis- 
her beim Schneider nicht. 
Leider haben bisher alle 
meine Versuche nicht 
funktioniert, aus diesem 
Programm einige Screens 
zum Druck herauszuho- 
len, alle für Assembler- 
Code brauchbaren Spei- 
cherbereiche werden 
beim Laden irgendwie 
gelöscht oder stillgelegt 
oder was weiß ich! Wer 
mehr kann als ich, mö- 
ge mir schreiben (s.o., 
diesmal nicht frankiert), 
ich antworte! 

Was macht Terry Greer? 
Er definiert eine Vielfalt 
von Shapes variabler und 
zum Teil beträchtlicher, 
ja verblüffender Größe, 
legt sie ab und ruft sie 
dann an verschiedene 


> 


setzen und Überzeichnen 
entsteht jedesmal ein 
neuer Eindruck. So sind 
z.B. nur zwei verschiede- 
ne Vordergrundberge 
vorhanden, aus denen er 
ganze Gebirge aufbaut. 
Sie sind untereinander 
wohl ähnlich, man merkt 
wohl wie er es macht, 
aber bei mir steigert das 
nur die Bewunderung. 
Alle Wälder entstehen 
aus nur zwei Shapes: 
einer für Baumstämme 
und einer für die Belau- 
bung. Alles Gras, ganze 
„grassy plains‘‘ werden 
durch vielfaches Zeich- 
nen nur eines einzigen 
Shapes erzeugt. 

Bei ‚‚Warllord‘“ sind es 
insgesamt 15 oder 16 
verschiedene Bilder, die 
aufgebaut werden, im 
Modus 1, vier verschie- 


mit unterschiedlicher 
Window-Größe, aber über 
MC-benutzte TAG-Befeh- 
le wird der Window-Rah- 
men überzeichnet. Eine 
manchmal räumlich tief- 
greifende Grafik, die mich 
häufig (für Insider) an 
Aubrey Beardsley erin- 
nert. Dezent, bestechend, 
delikat, gefühlvoll einneh- 
mend und sehr oft sogar 
atemberaubend. Wirk- 
lich ein hochtalentierter 
Grafiker mit beeindruk- 
kenden Programmier- 
kenntnissen. 


FAZIT 


Dafür bin ich bereit, mein 


sauer verdientes Geld aus- 
zugeben, auch ohne tolle 
Sonderangebote. Der 
meines Wissens bislang 
letzte Coup des bewähr- 
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nen, schlagen Sie zu! - 
Etwas Besseres kann ich 
zur Empfehlung nicht 
über ein Programm sagen, 
wenn Sie gern ‚adven- 
turn“ wollen, oder sich 
zeigen lassen wollen, was 
im CPC an Grafik steckt. 
Mein stiller Traum wären 
diese Super-Grafik-Rou- 
tinen in ein Malprogramm 
eingebunden. Also, Terry, 
fabrizieren Sie den war- 
tenden Usern ein Utility!!! 
Falls, oder wenn Sie dann 
das Adventure haben, 
soll Ihnen die Karte vom 
„Mapmaker“ die Lösung 
und das Erreichen der Bil- 
der erleichtern. Viel Spaß 
und good luck! 
Meet me in Cuchulainn’s 
Vale. By the way, did 
you hear about that 
fellow? 

(Hartmut Adelsberger) 


CRICKS 


„Cricks“ ist eine äußerst schnelle Pacman-Version, 
die trotz der Maschinensprache auf allen drei CPC- 
Modellen läuft. 


Programmbeschreibung 


Das von mir entworfene Programm ist ein Geschick- 
lichkeitsspiel mit dem Namen ‚‚Cricks“. Das ganze 
Spiel ist in zwei Listings aufgeteilt. Teil 1 (CRICKS. 
BAS) ist ein Basicprogramm, daß zeitunkritische Auf- 
gaben, etwa den Highscore und ähnliches, über- 


nimmt. 

Teil 2 (CRICKS.BIN) ist das Maschinenprogramm 
zum eigentlichen Spiel. Dieses Maschinenprogramm 
wird vom Programm „BASICLADER“ automatisch 
erzeugt. Gehen Sie dabei sicherheitshalber so vor: 

Zu aller erst das Listing „‚Cricks“ eintippen und saven. 
Bei Kassettenbetrieb muß dies das erste File sein. 
Dann den Basiclader abtippen und, ohne ihn vorher 
zu starten, abspeichern und erst danach mit RUN 


SCORE: 80838 HISCORE: 80086 


starten. Ist das Listing fehlerlos, wird das Programm 
„CRICKS.BIN“ auf Diskette (Kassette) abgespei- 
chert. Lauffähig ist das Spiel mit den Files CRICKS. 
BAS und CRICKS.BIN, Kassettenbenutzer sollten es 
genau in dieser Reihenfolge haben. Der Basiclader 
wird nur einmal benötigt, sollte aber zur Sicherheit 
noch irgendwo verwahrt werden. 


Zum Spiel 


Nach dem Start des Spieles durch RUN“CRICKS“ er- 
scheint ein Menü, mit dem man als eingefleischter 
Tastaturspieler seine persönliche Definition herstellen 
kann. Man kann allerdings auch jederzeit auf Joystick 
umsteigen. Mit “*G“ läßt sich eine Voreinstellung für 
die Geschwindigkeit eingeben. Hierbei gilt: je kleiner 
der Wert, desto schneller verläuft das Spiel. Die Werte 
liegen zwischen 1 und 100. Für den Anfänger dürfte 
der voreingestellte Wert von 60 gerade richtig sein. 
Nach dieser Auswahl kann ‚‚Cricks‘‘ mit der Taste 
“S“ gestartet werden. 


Bitte lesen Sie weiter auf Seite 12 
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a 


LISTING 


18 RRHBHRRRBRBRBHHRERRRHRRHRRRHAHRRHEE 


20 ’%* BASICLADER FUER CRICKS * 
3a '* VON * 
a '%* JOERN KLOSE * 
30 '%* FUER * 
3 '%* SCHNEIDER AKTIV * 
6 '* CPC 464/669/6128 * 


65 RRRRHHHHHRHHBRHRHRRRHHHRARRRAREE 

?8 MODE 2:PRINT"Cricks wird generiert!" 

89 MEMORY KAFFF 

98 FOR n=&?008 TO &76F8 

180 READ aß: a=VAL("K"+a®):POKE n,a 

118 NEXT 

128 PRINT"Achtung absaven - SAVE'’CRICKS. 

BIN’, b,&7000,6t8" 

130 SAVE"CRICKS. BIN", b, & 7000, &6F8 

148 END 

159 ' 

169 DATA 20,00,00,20,20,00,00,00,00,00,08 

2,00,29,00,00,00,00,00,00,00,00,21 

178 DATA 1F,77,806,14,C3,96, 1E,36,8F, 23,1 

®, FB, 36,28, 23,C1,10,F2,06, 1E, 36,208 

18% DATA 23,10,FB,06,25,36,FF,23,10,FB,2 

1, 1F, 77, 22, 0A, 70, 22, 0E, 70, 06,04, 2i 

198 DATA 06,70,36,29,23,18,FB,3E,23,CD,8 

6,71,2A,8E,78,FS, FE, 29, 28,07, 11,01 

209 DATA 00,ED,52,18,19,FE,21,20,06, 11,1 

F,20,19,18,@F,FE,02,20,06,11,01,08 

218 DATA 19,18,25,11,1F,28,ED,52,22,20C,7 

8, 7E,FE,8F,28,17,F1,21,06,70,85,6F 

220 DATA 36,FF,21,06,70,06,04,7E,B?,28,B 

A,23,19,F9,C3,12,71,F1,FS,FE, 00,28 

239 DATA 94,3E,81,18,12,FE,01,20,04,3E,8 

2,18,@0A,FE,02, 20,04, 3E,04,18,02,3E 

248 DATA 08,47, 2A,0E,78,7E,98,77,ES5,CD,E 

8,75,CD,75,BB,Ei1,7E,CD,SA, BB, 2A,8C 

250 DATA 70,22,0E,70,F1,FE,00,28,04,3E,8 

4,18,12,FE,01, 20,04, 3E,08,18,8A, FE 

269 DATA 02,20,24,3E,01,18,02,3E,02,47,7 

E,98,77,ES,CD,E8,73,CD,75, BB,Ei,?E 

278 DATA CD,SA,BB,2A,04,70,23,22,94,78,E 

D,SB,02,79,EB,ED, 52,38, 31,21,06, 70 

280 DATA 06,04,36,90,23,18,FB,C3,49,78,3 

E,02,CD,86,71,F3,3E,58,CD,86, 71,21 

298 DATA IF,77,11,00,00, SF, Fl, 5, 19,7E,F 

E,8E, 30,66, FE, 80,28, E2, 22, 0E, 79, 63 

308 DATA 3F,70,2A,0A,70,2B,23, 7E,FE,FF,C 

A,C2,71,FE,00,28,FS,FE,8F,38,F1,22 

319 DATA 2A,78,ES,3E,23,CD,86,?1,El,FE,A 

2,20,06,11,01,808,19,18, 1A, FE, 81, 20 

328 DATA 07,11,21,00,ED, 52, 18, or, FE,82,2 

8,86, 11,1F,00,19,18,08, 11, IF, ve, ED 

339 DATA 32,22,2E,70,7E, FE, 08, 28, B?,FE,8 

F,28,B3,C3,3F,78,ED,5B,00, ”e, 21, 28 

348 DATA 00,FS,7A,B3, 20, 05, 21, B5, FF,18,1 

4,26,4B,19,D5,11,00,00,ED, 52, Di, 30 

358 DATA 96, 10,03, 23, 18,03, 19, 18, EE, 22,8 

8,78,F1,FS,80E,FF,17,38,04,C8,39,18 

369 DATA F9,79,A9,67,F1,BC,38,C06,7C,C9,3 
E,92,CD,99,BB,3E,16,CD,SA,BB,3E,@1 
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379 DATA CD,SA,BB,06,19,21,02,05,C05,06,1 


E,C5,ES,CD, 75, BB,3E, 94, CD, SA, BB, EI 
388 DATA 24,C1,18,F1,26,05,2C,C1,10,E8,3 
E,16,CD,5A, BB, 36,20, CD, SA, BB, 3E, dl 
39@ DATA CD,90,BB,21,1F,77,06,14,C5,86,1 
E,CB,F6, 23, 10, FB, 23,01, 10,F4,21,57 
480 DATA 02,22,92,70,21,00,00,22,04,70,2 
1,1F,77,CB,B6, 22, FA,76,11, 64,92, 19 
410 DATA 22,FE,76,3E,01,32,F7,76,21,02,8 
5,22,F8,76,CD, 75, BB, 3E,A4,CD, SA, BB 
420 DATA 26,22,2E,15,22,FC,76,CD,75,BB,3 
E,90,CD,5A,BB,CD,7D,75,CD,04,76,CD 
430 DATA 8A, 74,CD,87,75,CD,24,BB,CB,A?,F 
E,01,28,2D,FE,02,28,66, FE,24,CA, OD 
440 DATA 73,FE,08,CA,48,73,CD, 1B,BB,DD,2 
1,F3,76,DD,BE, 00,28, 13, DD, BE,21,28 
459 DATA 4B,DD,BE,02,CA,2D,73,DD,BE,23,C 
A,48,73, 18, BE, 2A, FA, 76,E5, 11, 1F,0@ 
46@ DATA ED,52,E5,7E,CB,B7,CD,83,73,E1,D 
1,20, AA, DS, 22, FA,76,CB,76,04,04,73 
470 DATA CB,B6,2A,F8,76,CD,75,BB,Di,1A,C 
B,B7,CD, 5A, BB, 2A, F8, 76, 2D,22,F8, 76 
48@ DATA CD,75,BB,3E,A7,CD,SA, BB, 18,81,2 
A,FA,76,E5, 11, 1F,88, 19, ES, 7E,FE, 30 
49@ DATA CA,B®,76,CB,B7,CD,9C,73,E1,Di,C 
2,4B,72,D5, 22, FA,76,CB,76,04,04,73 
530 DATA CB,B6,2A,F8,76,CD,75,BB,DL,1A,C 
8, B7, CD, SA, BB, 2A, F8, 76, 20,22, F8, 76 
512 DATA CD,75,BB,3E,A6,CD,5A,BB,C3,4B,? 
2, 2A, FA, 76, ES, 2B, ES, 7E, CB,B7, CD, A6 
52@ DATA 73,E1,D1,02,48B,72,D5,22, FA, 76,C 
8,76, C4,C4,73,CB, B6, 2A, F8, 76, CD, 75 
3@ DATA BB,Di,1A,CB,B7,CD,5A,BB,2A,F8,7 
6,25, 22,F8,76,CD,75, BB, 3E,AS,CD, 5A 
542 DATA BB,C3,4B, 72, 2A, FA, 76, ES, 23,E3,7 
E,CB,87,CD,B9,73,E1,D1,C2,4B,72,DS 
559g DATA 22,FA,76,C0B,76,04,04,73,CB,B6,2 
A,F8,76,CD,75,BB,D1, 1A,CB,B7,CD, 5A 
560 DATA BB,2A,F8,76,24,22,F8,76,CD,75,B 
B,3E,A4,CD,SA, BB,C3,4B, 72,FE,88,C8 
570 DATA FE,81,C8,FE,84,C8,FE,85,C8,FE,8 
8,08, FE,89,C8, FE,8C,C8, FE,80,C8,C9 
580 DATA 06,28, 0E,80,B9,C8,0C,12,FB,C9,® 
6,04, 0E,80,B9,C8,2C, 10, FB,26, 24, dE 
592 DATA 68,B9,C8,00,18,FB,C9,06,08,E,8 
2,89,C8,0C,2C, 18,FA,C9, ES, 21,01,74 
68@ DATA CD,AA,BC,2A,04, 70,23, 22,04,70,2 
1,10,70,06, 05, 7E,FE,29, 20,08, 36, 08 
610 DATA 23,19,F6,34,11,10,70,06,05, 21,1 
8,18,C5,E5,DS,CD, 75, BB,D1,D5, 1A,C6 
620 DATA 39,CD,SA,BB,D1,13,E1,25,C1,10,E 
B,E1,C9,01,00,01,64,00, 02,27, 06,00 
630 DATA 3A,F?,76,FE,01,28,57, FE,82,CA,B 
2,74, FE,23,CA,F?,74,2A,FE,76,97, 11 
64@ DATA 1F,08,ED,52,7E,CB,B7,CD,83,73,C 
2,B2,74,2A,FE,76, ?E,FS,11,1F,28,ED 
650 DATA 52,22, FE,76,2A,FC,76,CD,75,BB,F 
1,FS,CB,B7,CD,5A,BB,F1,CD,43, 75, 3E 
66@ DATA 93,CD,98,BB,2A,FC,76,2D,22,FC,7 
6,CD,75,BB,3E,99,CD, SA, BB, 3E,21,32 


LISTING | 


670 DATA F?,76,CD,90,BB,C9,2A,FE,?6,2B,? 
E,CB,B?,CD,A6, 73, 20,A7,FE,00,CA, 1B 
688 DATA 74,2A,FE,76,7E,FS,2B,22,FE,76,2 
A,FC,76,CD,78,BB,F1,FS,CB,B?,CD, SA 
69% DATA BB,F1,CD,43,78,3E,03,CD, 90, BB, 2 
A,FC,76, 23,22, FC,76,CD,75,BB,3E, 91 
70% DATA CD,SA,BB,3E,01,CD,90,BB,3E,03,3 
2,F7,76,C9,2A,FE,76, 23, 7E,CB,B7,CD 
710 DATA BP,73,20,39,2A,FE,76, 7E,FS, 23,2 
2,FE,76,2A,FC,76,CD,75,BB,F1,FS,CB 
728 DATA B7,CD,SA,BB,F1,CD,43,78,3E,03,C 
D, 90, BB, 2A, FC, 76,24, 22,FC,76,CD, 78 


’ 
730 DATA BB,3E,92,CD,SA,BB,3E,01,CD,99,B 
B, 36,04, 32,F7,76,09, 2A,FE,76, 11,1F 
748 DATA 00,19,7E,CB,B7,CD,9C,73,02,68,7 
4,2A,FE,76,7E,FS, 11, 1F,00,19,22, FE 
75% DATA 76,2A,FC,76,CD,75,BB,Fi,FS,CB,B 
7,CD,5A,BB,F1,CD,43, 78, 3E,03,CD, 98 
769 DATA BB,2A,FC,76,20,22,FC,76,CD,75,B 
B, 3E, 93, CD,SA, BB,3E,21,CD, 90, BB, 3E 
77% DATA 02,32,F7,76,C9,CB,77,28,2B,3E,® 
2,C0,99,BB,3E,16,CD,5A,BB,3E,01,CD 
788 DATA SA,BB,2A,FC,76,CD,75,BB,3E,94,C 
D,SA, BB,3E, 16,CD,5A, BB, 3E,20,CD, SA 


799 DATA BB,3E,01,CD,90, BB, 18,2A,06,0A,C 
5,06, FF,10,FE,C1,10,F8,09,26, 30,05 
890 DATA 86, FF,12,FE,C1,10,F8,2A,FE,?76,E 
D,5B, FA, 76, 97, ED,52,CA,D3, 76, 24,04 
819 DATA 70,ED,5B,02,70,97,ED,52,00,06,2 
3,05,21,D6,78,CD, AA, BC,C1,10,F6,21 
820 DATA DF,75,CD,AA,BC,21,00,00,22,04,7 
2,36, 1E,CD,86, 71,21, 1F,77,11,84,02 
830 DATA 19,16,00,5F,ED,52,36,30,CD,E8, 7 
5,CD,75,BB,3E,20,CD, 5A, BB,C9, 21,02 
849 DATA 90,64,00,00,07,64,00,01,020,00, A 
0,0F ‚00,04, 03,73,06,00,11,1F,77,97 
850 DATA ED,52,11,1F,00,ED,52,38,03,04,1 
8,F9, 19, 3E, 08, 85,67, 3E,02,80,6F ,C9 
86@ DATA 2A,EF,76,7C,BS,28,16, 2B,22,EF,? 
6,7C,B5,C9,21, 18,84, 22,F1,76,CD, 75 
87@ DATA BB,3E,9%0,CD,5A,BB,C9,2A,F1L,76,? 
D,FE,81,28, 26, 7C,FE,04, 28,42,7D, FE 
880 DATA 16,28,63,E8,2C,E5,22,F1,76,CD,? 
5, BB,3E,93,CD,SA,BB,Ei,ED,SB,F8,76 
898 DATA 25,97,ED,52,290,40,C3,DB,76,7C,F 
E, 23, 28, DA, ES, 24, E5,22,F1,76,C0,75 
980 DATA BB,3E,92,CD,SA,BB,El,ED,SB,F8,? 
6, 20,97, ED,52,20,1F,C3,DB,76,E5,2D 
919 DATA ES,22,F1,76,CD,7S,BB,3E,90,CD,5 
A,BB,Ei,ED,SB,F8, 76, 24,97, ED,52, 20 
920 DATA 03,C3,DB,76,E1,CD,75,BB,3E,A3,C 
D,5A,BB,C9,CD,75,BB,3E,A3,CD, SA, BB 
938 DATA 3E,64,CD,86,71,F5,3E,02,CD,86,7? 
1,67, F1,6F,22,EF,76,09,E1,2A,F8,76 
949 DATA 2C,CD,75,BB,3E,A6,CD,5A,BB, 2A, F 
A, 76, 7E,FS, 2A, F8,76,CD,75,BB,F1,CD 
95% DATA SA,BB,El,3E,FF,32,08,78,C9,E1,2 
1,E6,76, CD,AA, BC,C9,E1,CD, 75, BB, 3E 
968 DATA A3,CD,SA,BB, 18,ED,01,04,94,F4,0 
1,91,93, 20,00, 00, 20,00,00,F0,Fi,F2 


978 DATA F3,09,00,00,09,20,00,00,00,00,0 
2,29,00,00,00,00,00,00,20,00,09,00 
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CRICKS 


Fortsetzung von Seite 10 


Das Spiel selbst ähnelt zwar Pacman, besitzt jedoch 
ein paar wesentliche Änderungen. Es gilt, in einem 
Labyrinth möglichst alle Punkte zu sammeln und da- 
bei nicht mit einem blinden Geist zu kollidieren. 

Mit diesem hat es eine besondere Bewandtnis: Da das 
Labyrinth in sich geschlossen ist und man nicht im 
Kreis laufen kann, läuft der blinde Geist, der offen- 
sichtlich auch ein wenig Intelligenz zu besitzen scheint, 
bei jeder möglichen Abzweigung nach links. Auch 
wenn der Spieler direkt vor ihm steht, geht er — so- 
weit möglich — nach links. Dadurch entsteht der 
Effekt, daß der blinde Geist nach einem vollen Rund- 
gang zweimal in jedem Feld war, also auch dort, wo 
sich die Spielfigur aufhält. Der Spieler hat damit nur 
die eine Möglichkeit, sich immer brav rechts zu halten 
und dem Geist, so gut es eben geht, auszuweichen. 
Sollte der Spieler es nun nach vielen Anläufen ge- 
schafft haben, sämtliche Punkte einzusammeln — es 
gibt insgesamt 600 Stück davon — dann öffnet sich 
unten eine Tür und er kann entwischen. Allerdings 
kommt er dadurch nur in ein anderes Labyrinth, in 
dem alles noch ein bißchen schneller abläuft. 

Um die ganze Geschichte nun aber nicht zu einfach 
werden zu lassen, kommt ab und zu der Sohn des 
blinden Geistes am Rand vorbei; er wird gerade an- 
gelernt und darf deshalb noch nicht ins Labyrinth. 
Aber wenn sich ein Spieler gerade am Rand aufhält, 
achtet der Junior nicht auf Papas Verbote und haut 
einfach zu. Das Spiel ist dann beendet. 
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| LISTING | 


18 RRRRRRBRRRHBBHHRRIHHRRRRRHAHIHHHNR 


20 '%* CHRICKS * 
30 '%* VON * 
a '’%* JOERN KLOSE %* 
sg ’* FUER * 
6 ’%* SCHNEIDER AKTIV * 
a ’% CPC 464/669/6128 * 


89 HHRRRRHHHRRHRRRRRHRRHRRHRRHRRRREN 

98 SYMBOL AFTER 256:MEMORY KöFFF 

188 LOAD* !CRICKS.bin",&7988 

118 GOSUB 13359: ’Symbols 

128 INK 8,8: INK 1,26 

138 ENV 3,15, -1,1@:ENV 1,5,12,1:ENV 2,18 

8,-2,10:ENV 4,190, -18,2:ENT 4,19,190,2 
1949 geöß: hiscore=ß 

159 GOSUB 1159: ’Init 

168 ° 

179. HRHHRHHHHHRHHHRREEN 

189 HH MENUE IHAHHHER 

198 HHRRHRHHRRHRHHHRHREN 

209 ' 

219 MODE ®& 

228 PRINT CHR®(23) ICHRB(1) 

23@ SPEED KEY 38,2:INK 2,12,25: INK 3,23, 
12 

248 a®8=CHR# (143) +CHRB(143) : TAG 

259 PLOT 39,300,2:PRINT as" CRICKS 
"y88} 

268 PLOT 54,304,3:PRINT as" CRICKS 
"536 

278 TAGOFF 

280 PRINT CHR®(23) ICHRS(9) | 

299 LOCATE 1,13:PRINT " (K)eyboard" 

388 PRINT: PRINT" (SI! piel":PRINT:PRIN 

T" (6) eschw. ":PRINT:PRINT" (EInd 

e Li} 

319 as=LOWERS(INKEYS):IF as="k" THEN GOT 

0 378 ELSE IF a$="g" THEN GOTO 318 ELSE 
IF a$="s" THEN GOTO 648 ELSE IF as="e" T 

HEN GOTO 168% ELSE GOTO 318 

328 ’ 

339 HHRHHRRHRHHRRHRRHEHN 

348 Hk TASTEN HHHKKK 

359. BHHRHRRRHRRHRRHRHIHRK 

368 *’ 

378 MODE ®:LOCATE 7,2:PEN 2: PRINT"TASTEN 
s’sPEN I 

38@ LOCATE 1,11:PRINT "OBEN ? : "3:608 
UB 459: POKE %&?6F3,a: PRINT a® 

399 LOCATE 1,13:PRINT "UNTEN ? : "54608 

UB 450: POKE &?6F4,a: PRINT as 

4288 LOCATE 1,1S:PRINT "LINKS ? : "3:608 
UB 459: POKE &?6FS,a: PRINT a8 

418 LOCATE 1,17:PRINT "RECHTS ? : "1:608 
UB 450: POKE &?6F6,a: PRINT a® 

428 PRINT:PRINT:PRINT"So OK ?" 

430 a8=LOWERSCINKEYS):IF as="" THEN 430 
ELSE IF as="n" THEN 378 ELSE IF asl)";j" 
THEN 438 ELSE 218 

449 IF a9X>"j" THEN 438 ELSE RETURN 


459 a&=LOWERSCINKEYE):IF as="" THEN 459 

ELSE a=ASC (a$) :RETURN 

469 ’ 

Dyl a © 5 7 7 5 2 2 0 2 2 2.2.2 0.2.0 .2.2 2 23 

489 KR GESCHW. KHK 

I 7 RRRRRKÄRKERURKNTIRRTRTR 

590 °’ 

5128 MODE 98:PEN 3:LOCATE 3,2: PRINT"GESCHW 
INDIGKEIT: ":PEN 25LOCATE 3,7:PRINT"Werte 
von 11-199" 

328 PEN 1:L0CATE 3,13: PRINT"Alter Wert: 


3380 LOCATE 3,18: INPUT"Neuer Wert: ",a% 
348 IF as="" THEN 210 

s39 b=VAL (a8) 

368 IF b{® OR b>’128 THEN 338 

378 g=b:POKE &7S7E,9 

588 GOTO 218 


[1] DuS u 0 0 2 2 2 0 2 2 2 2 2 2 2 2 2 2 2, 

61Q 'AaRaırE SPIEL HRRRRR 

629 RAIN RR 

639 ° 

648 GOSUB 960: ’BILD 

658 SPEED KEY 2,2: INK 2,9,10: INK 3,19,22 
:POKE &7S7E,9 

668 FOR n=k?018 TO &78L4:POKE n,9:NEXT:P 
OKE 87919, 1 

678 CALL &7815: ee) MC-Programm 

689 score=PEEK (K?7B1O) +IQXPEEK(K7/BLL) +1L90 
*PEEK (&?812) +1O9O0XPEEK (& 7013) +LODDOXPEEK 
(k?814) 

698 IF PEEK(&7089)=255 THEN 77% 

788 IF score>hiscore THEN hiscore=score 

718 FOR n=1 TO ZRORQ: NEXT:SOUND 135,2: s8co 
re=0:60T0 139 

>29 ’ 

730 7 KHRKIITIIINRR 

7048 ’%%*%* NEUE RUNDE K%% 

759 TRAIN 

768 ’ 

778 SOUND 129, @:RESTORE 829 

788 READ a,b 

798 IF b=-1 THEN 849 

889 SOUND 1,3,6,135,3 

819 GOTO 789 

828 DATA 319,490,239,10,253,5,239,19,119, 
28,1,1,119,298,1,1,119,29,1,19,80,50, 60,1 
) 


839 DATA 9, -A 

849 s=PEEK (&?7S57E) 

859 s=s-5 

869 POKE (&7S57E),s 

878 FOR n=1 TO 2890: NEXT 
888 GOSUB 96% 

8998 GOSLUB 1159 

988 GOTO 670% 

919 

92 RAR 
93% "RER BILD IRRE 


LISTING 


KEITH NR 


959 ' 


969 BORDER 3:PEN I 


978 MODE 1 


989 WINDOW #1,4,35,1, 22: PAPERHI1,1:CLSHI 
97% WINDOW #1,5,34,2, 21: PAPERKHI1,BECLSHI 


1898 LOCATE 
HISCORE: 


5,24: PRINT "SCORE: 


» 


1819 a$s=STRs(hiscore) 
1929 a8=RIGHTS(a®,LEN(a8) -1) 


1830 IF LEN(a8)<S THEN ag="d"+as:G0OT0 19 


184% LOCATE 


30, 24: PRINT as 


1859 aseSTR6(score) 
1069 a8=RIGHTE(a8,LEN(a®) -1) 


1878 IF LEN(a8)<S THEN a8="0"+368:G60T0 19 


1889 LOCATE 
1899 RETURN 


12,24: PRINT a8 


POST. En 5 0 5 000 0000212 3.2 2 272.2 2 207 
1120 "KK INIT MERRRR 
139 HATT IHN NR 


1140 ' 


1159 +a=549 


1168 RANDOMIZE TIMEX10S9 
1178 zzi=1INT(RND*199) 

1188 zz2=1NT(RND*199) 

119% umgol=INT(RNDKZ) 

1209 umgo2=INT (RND*2SS) 
1218 POKE &7082, ta-236*1NT (+8/236) 
1228 POKE 47883, INT(+a/256) 
1230 POKE &7094,0 

1248 POKE &7005,08 

1238 POKE &7000, zz1 

126% POKE K?7001,zz2 

127% POKE &76EF , umgo2 

1288 POKE K76Fß,umgol 


1298 RETURN 


130 III HR 
1320 ’XH%% SYMBOLS KHR%* 
1339ER 


1359 SYMBOL 
1360 SYMBOL 
1379 SYMBOL 
128,129 
138% SYMBOL 
139% SYMBOL. 
128,255 
1498 SYMBOL 
1418 SYMBOL 
129,129 
1420 SYMBOL. 
1439 SYMBOL. 
129,255 
1442 SYMBOL. 
1459 SYMBOL. 
128,129 


AFTER 128 
128, 129,0,0,0,0,0,0,129 
129,129,128, 128, 128,128, 128, 


130,129,0,0,0,0,0,0,255 
131,129, 128,128,128, 128,128, 


132,129,1,1,1,1,1,1,129 
133, 129,129,129,129,129,129, 


134,129,1,1,1,1,1,1,258 
135,129,129,129,129,129,129, 


136, 255,0,0,0,0,0,2,129 
137,255, 128,128, 128,128, 128, 


1460 SYMBOL 
147% SYMBOL 
128,255 
148% SYMBOL. 
1498 SYMBOL 
129,129 
1599 SYMBOL. 
1519 SYMBOL. 
129,255 
1520 SYMBOL 
‚D 
153% SYMBOL. 
1549 SYMBOL 
) 

155% SYMBOL. 
‚2 
1560 SYMBOL. 
1579 SYMBOL. 
255,255 

389 SYMBOL 


1599 SYMBOL 
1608 SYMBOL 


1610 SYMBOL 


1628 RETURN 
1639 


138, 255,0,0,0,0,0,0, 255 
139,255, 128,128,128, 128,128, 


140,255, 1,1,1,1,1,1,129 
141,255, 129,129,129,129,129, 


142,255,1,1,1,1,1,1,255 
143, 255,129,129,129,129,129, 


144,8,66, 102, 102,102, 126,126 


145,0,126,62,6,6,62,126,0 
146,0,126, 124,96, 96, 124,126, 


147,9,126,126,102, 102, 102,66 


148,0,0,0,24,24,0,0,8 
163,255, 255,235, 255, 255,255, 


164,0,124,118,124, 124,108, 18 


165,0,62, 119, 62,62,54, 192,0 
166,0, 126,90, 102, 126, 102, 102 


167,0,68, 126,126, 126,192, 192 


LEI RRRKKKRKRRRRHKKK 
1650 '#%%%# ENDE Krk 
LEO ERRRRRKRRTRIRRNR 


1678 *’ 


1688 MODE 2: 


1698 END 


BORDER 8 


je u u Sy. Seen Se = Sn en Zn ul la ann nn une 2 Sn => 2 mn SS 


\ PERSONAL 


NNGERFUTERE 


LISTING 


VE ee C oe eu 200 2 22 2 0 2 0 2 2 0 0 2 2 2 0 2 227 g" 

20 °’% DIMMER-DEMO * 1158  PPINT:PRINT" aufgebaut 
3 '% VON % ist.” 

a ’% KAI KRACHT * 1168 schritt=1:60SUB 199099 

sg °’%* FUER * 117% FOR lesezeit=d TO SA: NEXT 

6 ’% SCHNEIDER AKTIV * 1189 schrift=-1:605UB 19999 

7a ’%* CPC 4694/664/6128 * 1198 rand=-1:60SUB 19098 

IP Be 2 2.2 2 5 2 2 212 2 2.2 2 22 2 2.2 2 22 222 272 2 2 212 2 2 27 1288 MODE 8:LOCATE 4,10: PRINT’* END 
189 ’DIMMER E %*" 

110 nun 1219 schrittel:60SUB 10990 

120 ’Wer Textseiten und Grafiken erst 1228 GOTO 1228 

aufbauen und dann als ganzes 100809 ’Unterprogramm: DIMMER 

138 "sichtbar machen will, kann sie er 18818 '------- on nun nn 

st "schwarz in schwarz” mit 1808289 ’Programmbetehle: 

148 "INK 1,1 auf den Bildschirm schre 18939 °’ 

iben und dann mit 10048 ' schrifte 1 !gosub 10908 { 
15% "INK 1,24 auf einen Schlag sichtba Schrift aufhellen) 

r machen. 19959 ' schrift= -i !gosub 19099 { 
169 Schrift abdunkeln) 

179% "Es Ist allerdings eleganter und w 10060 ' rand :gonub 18000 { 
irkt professioneller, wenn die Rand aufhellen) 

188 "Grafik oder der Text langsam aufg 18970 ' rand = -| :gosub 10080 ( 

eblendet und nach angemessener Zeit Rand abdunkeln) 

199% "nieder langsam ausgeblendet werde 109809 ’ 

n., Dazu gibt man folgenden Betehl ein: 10899 IF schrift= I THEN 19139 

2008 FOR #=1 TO 24:INK 1,f:!FOR z=1 TO 191980 IF schritft=-1 THEN 19149 

SO:NEXT z,f 181198 IF rand = 1 THEN 10159 

210 18128 IF rand w-i THEN 19169 

228 'Wenn man diesen Vorgang mehrfach 18139 FOR #=1 TO 24: INK 1,#3FOR zei TO 

wiederholen will, lohnt es sich, B:NEXT z,#:60T0 19178 

238 'das folgende kleine Unterprogramm 18148 FOR #=24 TO 1 STEP-L:!INK 1,#!FOR z 
DIMMER einzugeben! =1 TO SO:NEXT z,#:60T0 12178 

249  ° 10159 FOR #=1 TO 12:BORDER #:FOR z=i TO 
18929 ’DIMMER - Demo: SO:NEXT z,f:G60T0 190178 

1810 "nun 18160 FOR #=12 TO 1 STEP-L:!BORDER #:FOR 
1828 schritt=-1:60SUB 10990 z=i TO SQ:NEXT z,f 

1838 MODE ®:LOCATE 6,19: PRINT"Guten Tag 19170 schrift=d:rand=9 

u 10188 RETURN 

1948 rand=1:60SUB 19000 20990 ° 

1059 schritft=1:60SUB 18000 20010 'Kai Kracht, Engelsgrube 32 Haus | 
186% FOR lesezeit=d TO 1009: NEXT 1, 2488 Luebeck, Tel. (8451)794112 


1978 schrift=-1:G60SUB 19090 
19898 MODE 1:PRINT:PRINT 
1883 PRINT:PRINT" Dimm 


er" 

1884 PRINT 7 22 222025 27] 
1999 PRINT: PRINT" Diese Rou 

tine” 

1189 PRINT:PRINT" blende 


t" Entsprechend Ihren vielfach geäußerten Wünschen 
1118 PRINTSPRINT" den Bilds haben wir hier wieder ein Utility für den Einbau in 
chirm® Ihre eigene Programme. Allerdings gleich mit einem 

T:PRINT" doppelten Effekt. Zum einen wird der Text auf dem 
1128 PRINTIPRINT erst da Bildschirm erst sichtbar wenn er komplett beschrie- 
nn" ben ist, zum anderen wird die Schrift nur langsam hel- 
1125 PRINTSPRINT" auf, ar so daß der Eindruck eines Dimmerschalters ent- 
[) steht. 

: Da das Listing in Basic ist, ergeben sich keine Kompa- 

erere wenn die tibilitätsfragen. Der Autor, Kai Kracht, hat zusätzlich 


b eine Demonstration zu seinem Programm geschrieben, 
1148 PRINT:PRINT" terti so daß sich weitere Erklärungen erübrigen. 


15 


LISTING 


POLTER- 
GEIST 


Der ‚„CPC-Poltergeist‘ von Michael Bussmann hat 
nichts mit dem fast gleichnamigen Film zu tun. So- 
vielschon einmal vorweg, denn wer weiß, welche 
Firma sich die Rechte an diesem Titel erworben hat 
und mit einem Spiel auf den Markt kommt. Bei diesem 
Programm geht esum.... 


Zum Programm 


Nach dem Starten des Programmes mit RUN wird zu- 
nächst ein Titelbild gemalt. Wenn Sie der Aufforde- 
rung, FEUER zu drücken nachkommen, wird das Spiel- 
feld hergestellt. Der eigentliche Bewegungsraum ist 
recht klein gehalten, um die Länge der Data’s, die bei 
20 Screens(!) schon ziemlich groß sind, nicht noch län- 
ger zu machen. 


Zum Spiel 


Zuerst müssen Sie den Spaten nehmen und dann zum 
Raum ohne Tür gehen; dort FEUER drücken und eine 
Tür erscheint. Nun gehen Sie wieder zurück zum er- 
sten Tennisball. Nehmen Sie ihn und dann nichts wie 
hinein in “The hollow of light“. 

Dort einmal angekommen, sollten Sie den Tennisball 
in das blinkende Etwas feuern. Nun den zweiten Ten- 
nisball eingesammelt und wieder in dieses Etwas ge- 
worfen. Daraufhin erscheint wieder eine Tür. Sollen 
Sie durchgehen??? 

Ja, aber schnell! Sie haben nur 2 Minuten Zeit, um in 
den letzten Raum zu gelangen. Jetzt müssen Sie nur 
noch an das Seil gehen, dann haben Sie das Spiel ge- 
löst. Aber Sie werden bald merken, daß sich dies alles 
leichter liest als bewerkstelligen läßt. 


Tips 


Wenn Sie in bestimmten Räumen keine Tür finden, 
dann suchen Sie nach einem Seil oder Spaten. Das- 
selbe gilt auch, wenn der Weg zur Tür versperrt ist. 
Wenn Sie an einem Geist vorbeikommen wollen, 
warten Sie, bis er sich in einer Ecke festsetzt. Dann 
schnell vorbei und gegebenenfalls noch etwas ein- 
sammeln. 
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LISTING 


IRRE 


1 

2 '* POLTERGEIST * 
3 ’* VON * 
a ’%* MICHAEL BUSSMANN * 
> FUER * 
6 ’%* SCHNEIDER AKTIV * 
-» CPC 464/664/6128 * 
8 


IRRHRARRRRBRRRRRBRRRHSRHRRRRARHBRRE 
18 SYMBOL AFTER 8 
20 SYMBOL 45,0,2,2,69, 170,16 
30 SYMBOL 77,42,85,85,21,37,74, 41 
48 SYMBOL 89,44,82,81,18,69,16,32 
30 SYMBOL 83,29,38,64,82,77,34,28 
#28 SYMBOL 99,2,2,28,38,64,34,28 
?8 SYMBOL 191,0,20,24,44,80, 192,356 
80 SYMBOL 102, 24,44,32,120,48,32,32,32 
98 SYMBOL 183,9,90,16,40,68,68,8, 112 
199 SYMBOL 185,9,16,2,48,16, 24,16 
119 SYMBOL 198,49,16,16,16,16,16,8 
129 SYMBOL 110,0,9,08, 36, 36,34, 36 
139 SYMBOL 111,9,9,24,36,70,68,56 
148 SYMBOL 112,2,2,00,49,36,120, 32,32 
159 SYMBOL 114,0,90,88,36,32,32,16 
169 SYMBOL 113,8,4,36, 64,36, 68,56 
178 SYMBOL 116,8,16, 56, 16,16, 24,16 
188 BORDER Q: INK 8,9: FOR f=1 TO 15: INK F 
„6: NEXT 
199 MODE & 
209 fei 
218 aß="Microtronic - Soft" 
228 ORIGIN 1,355 
238 FOR k=1 TO 18 
249 a=ASC (MID#(a®,k,1)) 
259 c=HIMEM+aX8+8 
268 FOR ist TO 8 
278 as=PEEK(c) 
280 be=BIN®(as,8) 
2972 FOR j=t TO 8 
389 s$=MIDs(b#, j,1) 
319 IF s6="d"THEN 339 
328 PLOT x+j%#4,1%5,F:PLOT x+j%4, i#3+1: PL 
OT x+2+j%4,1%5: PLOT x+j%4, i%5+3: PLOT x#j 
%4,1%5+2: PLOT x+2+j%4,1%5+2 
330 NEXT jif=t+i 
349 c=c-1:5NEXT i:fel 


: 359 x=x+32 


368 NEXT k 

370 x=8 

389 t$="presents:" 

39@ FOR a=1 TO 9 

498 PEN a 

419 z=INT(RNDXZ) +1 

429 s6=MID8(t$,a, 1): p=12-LEN(tS) /2+a 
430 ON z GOSUB 459,468 

448 NEXT a:G0TO 489 

438 FOR b=24 TO 4 STEP-1:LOCATE p,b+i:PR 
INT" ":LOCATE p,b:PAPER 15-a: PRINT s$:60 
SUB 479: NEXT:RETURN 

468 FOR b=18 TO p STEP-1:LOCATE b+1,4:PR 
INT" ":PAPER 15-a:LOCATE b,4: PRINT s$:60 


SUB 478: NEXT: RETURN 

478 SOUND 1,b*12@,1:PAPER 8: RETURN 

488 ORIGIN 1,20: a6="Poltergeist" 

499 t=1:FOR k=1 TO Li:a=ASC(MIDS(aS$,k,1) 
):c=HIMEM+a%8+8 

s8@ FOR i=1 TO 8: as=PEEK(c):b#=BIN® (as, 8 
):FOR jei TO 8:s6=MIDscbS,j,L): IF su="Q" 
THEN 3538 

S19 PLOT x+j%4,i1%5,f 

328 PLOT x+j%4,i%S+L:PLOT x+2+j%4, 185: PL 
OT x+j%4,1%5+3: PLOT x+j%4, 1%5+2: PLOT x+2 
+j%4,1%5+2 

5380 NEXT jifsf+tl:c=ec-lLiIF f=16 THEN fei 
548 NEXT i 

359 x=x+52:NEXT kK:ORIGIN 8,8 

568 p=i:FOR a=8 TO PI*4 STEP 9.1 

578 pep+ti+15%Cp=elS): PLOT Si1%a,SIN(a) %50+ 
120: DRAW 329, 339, p: NEXT 

580 FOR a=®d TO 2%PI STEP 8.1:FOR b=B TO 
3 

398 TAG:PLOT-1,-2,b+1:MOVE SIN(a) #40+259 
-b*4,C0S(a) X48+180-b%8: PRINT CHRB(143) |: 
NEXT: NEXT: TAGOFF 

688 RESTORE 618:DIM c(16):FOR f=8 TO 15: 
READ fa: FOR s=10088 TO 780 STEP-13: SOUND 
1,8/(f+1),1,5: INK #,RNDX30: NEXT s: FOR we 
1 TO SQ:NEXT ws INK f,fa:c(f)=ta: NEXT: BOR 
DER 13 

#19 DATA 8,24,15,93,6,7,17,5,11,2,1,18,18 
‚21,22,25 

628 RESTORE 4180 

630 SYMBOL AFTER 9 

648 EVERY 15 GOSUB 41359 

658 FOR b=e1 TO 198: c(16)=cl1):FOR a=i TO 
I5:INK a,cta)iscta)=c(ari)iNEXT a,b 

669 '"laufschrift 

678 a®=CHRB (164) :b8=5PACES (IB) 

689 t6=bs+"Poltergeist "+as+" by Michael 
Bussmann & Lutz Klein. Ret 
ten Sie das Kind Ihrer Fanilie aus den H 
aenden des Poltergeistes.Doch hueten Sie 
sich mit einer der Fallen zusammen zu 8 
tossen. SFEUERÜ druecken"+b$ 
&P@ INK 15,1: INK 14,18:PAPER 1S:PEN 14 
?88 FOR l=1 TO 23S:L0CATE 2,25: PRINT MID 

“(ts,1,18) 

718 IF INKEY(?6&)<C)8 THEN NEXT:GOTO 788 
728 r=REMAIN(9) 

738 PAPER ®:PEN I 

749 FOR pe=i TO 15:FOR f=i18 TO 9 STEP-L: 
INK pe, f:SOUND i,f%*pe,1,3:NEXT f:FOR wa= 
1 TO 189:NEXT wa,pe 

758 CLEAR:PAPER 8:MODE 9 

768 live=z4;screen=1:SPEED INK 5,5 

778 ’SYMBOLS 

789 SYMBOL 69, 24,60, 119,82,52,24,24,90 
798 SYMBOL 66,36, 16,16, 16,36, 56, 56, 16 
808 SYMBOL 67,7,13,29,52,112,213,149,36 
818 SYMBOL 68,20,36, 124,186, 214,186, 124,3 


LISTING 


820 SYMBOL 69,0, 126,86, 58,86, 106, 94,8 
830 SYMBOL 72,41,128,18,41,128,84,9,164 
848 SYMBOL 71,170,170, 238,68, 72,36, 24,32 
850 SYMBOL 72,96, 184, 100,2,52, 73,33, 38 
868 SYMBOL 73, 255,110,68,31,124,31, 126,6 
870 SYMBOL 74,0,0, 28,28, 62,54, 197,197 
880 SYMBOL 75,0,0,28,28,62,54, 197,197 
890 SYMBOL 76, 99,99,99, 127,127 

998 SYMBOL 77,99,99,99,127,127 

910 SYMBOL 78, 24,24, 18,60,88, 16,49, 38 
920 SYMBOL 79,12,12,4,78,61,12,18,98 

930 SYMBOL 89, 108, 222,146, 146,254, 124,49 


SYMBOL 81,192,34,85,130,34,85, 136, 34 
950 SYMBOL 82, 28,28,8,62,99,8, 28,16 

960 SYMBOL 83, 69,102, 126,36, 36, 36,60, 24 

978 SYMBOL 84,16, 16,8,8,16,32,16,16 

980 SYMBOL 85,0,49, 123, 238, 155, 117,79, 18 


990 SYMBOL 86, 49,84,40,68,56,56, 16,16 
1008 SYMBOL 87, 24,24,8,88,56,24,8,24 
1910 SYMBOL 68, 24,24, 16, 26,28,24,16,24 
1020 SYMBOL 89,28, 28,8,62,93,8,20,4 

1038 SYMBOL 98,219, 108, 149,72,18,20,1,14 
8 

1049 SYMBOL 124,24,126, 126,24, 24,25, 62,1 
26 

1050 DIM teld(ii,11):WINDOW 5,15,8,17: IN 
K 1,6:INK 2,26: INK 9,2:INK 4,15 INK 3,24: 
INK 6,18: INK 7,8:1INK 8,3,6:INK 9,18, 9: IN 
K 18,1, 2:INK 11,26,24: INK 12,15: INK 13,3 
:INK 14,18: INK 15,20 

1868 WINDOWML,1,29, 1,1: PENN1, 3: PAPERNL,2 
:CLSHL:WINDOWHS, 1,20, 2, 8:WINDOW#2,1,4,8, 
17:WINDOW3, 16, 28,8, 17: WINDOWN4, 1,20, 18, 
25:FOR n=2 TO S:PAPER#n,7:CLS#n:NEXT 
1070 a6="0000000000000000000001 101101001 
110110110011011012001001001 1001001101008 
1001 LOLORDLOALIDLADDLORIAHLIAWIORILWLLAD 
109110101" 

1888 FOR a=i TO 128:IF MIDS(as,a,i)="Q"T 
HEN PEN#S, 3:PRINT#S, "E"JELSE PEN#S, 11: PR 
INTRS, "F"J 

1898 NEXT 

1100 a@m"ililiLILIILLILILLLILLLIODLODLDN 
1MO1ODOLILLISLIGLLILIGLLIALILLLLIWLADLDI 
1PO11O1L11LIGDLALIHLIINLIMLILLILODLADLDI 
1091101 11* 

1118 FOR a=i TO L2B:IF MIDB(aB,a,I)="Q"T 
HEN PEN#4, LO: PRINT#4, "@"IELSE PEN#4,13:P 
RINTR4, "U" 

1128 NEXT 

1130 PEN#2, 12:PEN#3, 12:PRINT#2,STRINGS(4 
3, "Z"):PRINT#3, STRINGS(S4, "2" ) 

1149 WINDOWN&, 1,20, 24, 25: PAPER#6, 3: PEN#6 
‚Z:CLSH6 

1159 GOTO 1838 

1160 IF geist%=1 THEN geist=INT(RND#S) 
1178 IF JOY(@)=1 THEN beu=ben+1:G0T0 128 
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[.) 

1188 IF geist%=1 "HEN ON geist G0T0 4228 
‚7260, 4300, 4349 

1198 IF JOY(Q)=2 THEN beusbew+1:G0T0 134 

8 

128% IF licht=i AND TIME-ot)=21212 GOTO 
4362 

1218 IF JOY(Q)=4 THEN benl=bewl+1:60T0 1 
449 

1228 IF JOY(9)=8 THEN beur=bewr+1:60T0 I 
569 

1238 IF JOY(Q)=16 AND screen=16& AND(ball 
i=1 OR ball2=1)60T0 1678 

1249 IF JOY(Q)=16 AND screen=3 THEN 1738 
1259 IF JOY(@)=16 AND screen=19 AND sp=1 
AND feldixm,ym)=15 GOTO 4459 

1269 IF JOY(@)=16 AND screen=8 AND xm=2 
AND ym=2 AND se=Q GOTO 4669 

1278 GOTO 1169 

1288 LOCATE xn,ym:PRINT" ":ym=yn-i: IF fe 
Idixn,ym)=1i OR feld(xm,ym)=3 OR feld(xm, 
ym)=9 OR FELD(XM,YM)=16 THEN ym=ym+1 
1299 IF teld(xm,ym)=3 OR feld(xm,ym)=7 0 


"R feldixm,ym)=8 OR feld(xmn,ym)=6 OR feld 


(xm,ym)=14 OR teldixm,ym)=17 OR teld(xm, 
ym)=28 THEN GOTO 1758 

1399 IF screen=1® AND bag=® AND feld(xm, 
ym)=4 THEN bag=e1:ball2=1:L0CATE xm, ym:PR 
INT" ":teldixm,ym)=2:G0T0 4299 
1318 IF xm=geistx AND ymegeisty THEN 175 
8 

1328 SOUND 1,2,1,7,8,8,30:PEN 15:LOCATE 
xm,ym:IF(bew MOD 2)=8 THEN PRINT"R"ELSE 
PRINT"Y" 

1338 GOTO 1189 

1348 LOCATE xn,ym:PRINT" ":IF bag=1 AND 
teld(xm,ym)=2 THEN PEN 2:LOCATE xm, ym: PR 
INT"B"ELSE IF bag=i AND feld(xm,ym)=4 TH 
EN PEN S:LOCATE xm, ym: PRINT"D" 

1359 ym=ym+I 

1369 IF teld(xm,ym)=i OR feldtxm,ym)=5 0 
R feld(xm,ym)=9 OR feld(xm,ym)=16 THEN y 
m=ym-1 

1378 IF teld(ixm,ym)=3 OR feld(xm,ym)=? 0 
R feld(xm,ym)=8 OR feld(xm,ym)=6 OR feld 
(xm,ym)=14 OR feld(xm,ym)=17 OR feld(xm, 
ym)=29 GOTO 1758 

13898 IF xm=geistx AND ym=geisty THEN 175 
) 

1398 IF bag<>1 AND feld(xm,ym)=2 THEN ba 
g=l:spaten=1 

1488 IF bag<>1L AND feld(xm,ym)=4 AND scr 
een=3 THEN bag=1:balli=i:feld(xm,ym)=d 
1418 IF bag<>i AND feld(xm,ym)=4 AND scr 
een=i9 THEN bag=ei:ball2=1:teld(xm, ym)=Q 
1428 SOUND 1,98,1,7,2,8,38:PEN 15: LOCATE 
xm,ym:IFtben MOD 2)=8 THEN PRINT"R"ELSE 
PRINT"Y" 

1438 GOTO 1168 

1448 LOCATE xn,ym:PRINT" ":IF bag=i AND 


LL————————————————————————————————————————————————————— 


LISTING 


teld(xm, ym)=2 AND screent>19 THEN PEN 2: 
LOCATE xm,ymiPRINT"B"ELSE IF bag=i AND f 
eldixm,ym)=4 THEN PEN 3:LOCATE xm,ym:PRI 
NT"D" 

1959 xmexm-i 

1468 IF screen=19 AND feld(xm,ym)=2 THEN 
LOCATE ?7,7:PRINT" "SLOCATE 7,8: PRINT" " 
ıfeld(7,M)=B:teld(7,8)="d:sp=1:G0T0 4299 
1978 IF teldixm,ym)=12 AND screen?! THEN 
screen=sscreen-1:G00T0 1839 ELSE IF feld 
xm,ym)=eL2 AND screen‘=i THEN xmexm+i 
19488 IF teldixm,ym)=i OR feldixn,ym)=5 0 
R teldixm,ym)=? OR feld(xn,ym)=1d OR fel 
d(xm,ym)=16 THEN xmexm+i 

1499 IF teld(xm,ym)e3 OR feld(xm,yn)=7 0 
R teld(xm,ym)=8 OR feld(xm,ym)=6 OR feld 
(xm,ym)=14 OR feld(xm,ym)=17 OR feld(xm, 
ym)=28 THEN 1759 

15828 IF xm=geistx AND ym=geisty THEN 175 
8 

1518 IF bag<>1L AND feld(xm,ym)=2 THEN ba 
geiispaten=1:LOCATE xm,ym: PRINT" ":teld( 
xm,ym)=9:G60T0 4298 

1528 IF bagt>i AND feldixm,ym)=4 AND scr 
een=3 THEN bag=ei:balli=i1:LOCATE xm,ym:PR 
INT" "itfeld(xm,ym)=8:G0T0 4298 

1539 IF bag<>i AND feld(xm,ym)=4 AND ser 
een=1d THEN bag=1:ball2=1:L0CATE xm,ym:P 
RINT" ";teldixm,ym)=2:G0T0 4208 

1548 SOUND 1,8,1,7,28,80,38:L0OCATE xm,ymiP 
EN iS: IF(bewl MOD 2)=8 THEN PRINT"O"ELSE 
PRINT "W" 

1558 GOTO 1168 

1568 LOCATE xm,ym:PRINT" ":IF bag=i AND 
feld(xm,ym)=2 THEN PEN 2:LOCATE xm,ym: PR 
INT"B"’ifeldixn,ym)=9 ELSE IF bag=1 AND f 
eld(xm,ym)=4 THEN PEN S:LOCATE xm,ymi PRI 
NT"D"iteld(xm, ym)=d 

1578 IF teld(xm,ym)=13 THEN screen=scree 
n+1:G0T0 1838 

1589 xmexm+i 

1598 IF feld(xm,ym)=1 OR feld(xn,ymn)=3 0 
R teldixm,ym)=9 OR feld(xm,ym)=i1 OR fel 
d(xm,ym)=16 THEN xm=xm-i 

16088 IF feld(xm,ym)=3 OR feldtxn,ym)=? 0 
R teld(xm,ym)=8 OR feldixn,yn)=6 OR feld 
(xm,ym)=14 OR teld(ixm,ym)=17 OR feld(xm, 
ym)=28 THEN 1738 

1618 IF xm=geistx AND ym=geisty THEN 175 

8 

1628 IF bagt>1 AND feld(xm,yn)=2 THEN ba 
gei:spaten=1:LOCATE xm,ym: PRINT" ":feldt 
xm,ym)=d:G0T0 4200 

1638 IF bag<>iL AND feld(xm,ym)=4 AND scr 
een=3 THEN bag=i:balli=1:LOCATE xm,ymi PR 
INT" ":teld(xm,ym)=0:00T0 4299 

16948 IF bag<>i AND feld(xm,ym)=4 AND scr 
een=1d THEN bag=el:ball2=1:!L0CATE xm,ymiP 
RINT" "s;teld(xm,ym)=8:00T0 4208 

1638 PEN 15:SOUND 1,8,1,7,9,20,30:L0CATE 
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xm,yn:IFtbewr MOD 2)=8 THEN PRINT"N"ELSE 
PRINT”X® 

1669 GOTO 1168 

1678 'ball werfen 

1688 IF screen‘>i&4 AND NOT(ym=5 OR ym=6) 

THEN 1168 

1698 FOR n=exm TO 1B:LOCATE n,ym:PEN 3: PR 
INT"D"’:LOCATE n,ym: PRINT" ":S0UND 1,n%#18 
‚1,7,2,28,2:1F teld(n,ym)=& THEN GOTO 438 

8 ELSE IF feldin,ym)<?8 THEN 1168 

1798 NEXT 

1718 IF balli=i THEN balli= ELSE IF bal 
i2=1 THEN ball2=Q 

1720 bag=d:spaten=1 

1738 "keller 

1748 IF spaten<)i THEN 1278 ELSE tuer=i: 
FOR s=8 TO 1 STEP-3:FOR a=288 TO 499: SOU 
ND 4,a/8,1,7:NEXT a,s:LOCATE 18,7: PRINT" 

K"SLOCATE 18,8: PRINT"M":teld(19, P)ellitfe 
1d(19,8)=13:bag=d:spaten=1:60T0 1169 
1758 ’-leben 

1768 live=slive-i: IF livei>d THEN FOR b=i 
TO 488 STEP 19:SOUND 1,b,1,7:50UND 4,b* 
2,1,7:NEXT b:G0T0 1839 

1778 ENV 1,1,12,1,12,-1,3:ton=g: RESTORE 
@&SB: WHILE ton<>L:READ ton: SOUND 1,ton,3 

8,80,1:5OUND 4,ton#2,39,8,1:50UND 2,ton/2 
‚38,29,1:WEND 

17688 FOR a=1 TO 3 

1798 OUT KBCQAQ,13:FOR z=i TO 40: SOUND 4, 
z%8,1,7:0UT &BD99,z: INK RND#1S,RND#309: NE 
xXT z 

1888 OUT &BC82,8:0UT &BD99,1:50UND 1,9,1 

28,7,8,0,32:FOR w=i TO 1B88:NEXT w 

1818 NEXT a 

1828 OUT &BC99,8:0UT &BD99,9: RUN 

1838 IF screen(& THEN INK 8,1:INK 4,15 E 
LSE IFtscreen?=6 AND screen‘P) THEN INK 9 
‚„i3:INK 4,1 ELSE IF screen)=9 THEN INK 
‚@:INK 4,1 

1848 CLS:ERASE feld:DIM feld(ii,11) 

1858 IF screen=i THEN RESTORE 1958 ELSE 
IF screen=2 THEN RESTORE 2978 ELSE IF sc 
reen=3 THEN RESTORE 2188 ELSE IF screen= 
4 THEN RESTORE 229% ELSE IF screen=5 THE 
N RESTORE 2488 ELSE IF screen=9 THEN RES 
TORE 2318 ELSE IF screen=1d THEN RESTORE 
2620 

1868 IF screen=il THEN RESTORE 2739 ELSE 
IF screen=i2 THEN RESTORE 2848 ELSE IF 
screen=13 THEN RESTORE 2959 ELSE IF scre 
en=14 THEN RESTORE 3960 ELSE IF screen=i 
5 THEN RESTORE 3178 ELSE IF screen=16 TH 
EN RESTORE 3288 ELSE IF screen=1?7 THEN R 

ESTORE 3389 

1878 IF screen=18 THEN RESTORE 349% ELSE 
IF screen=19 THEN RESTORE 3699 

1888 IF screen=& THEN RESTORE 3712 ELSE 
IF screen=? THEN RESTORE 3820 ELSE IF sc 
reen=8 THEN RESTORE 3938 


LISTING 


2319 DATA 


2298 DATA 
23008 DATA 
2328 DATA 
2339 DATA 
2348 DATA 
2358 DATA 
2369 DATA 
2378 DATA 
2388 DATA 
are in the 
2399 '5, 


L3:PRINT"I" 
1918 IF wert=19 THEN PEN 8:LOCATE x,y:PR 


INT"J’ELSE IF wert=11 THEN PEN 12:LOCATE 
x,y:PRINT"’K"ELSE IF wert=12 THEN PEN 6: 
LOCATE x,y:PRINT"L’ELSE IF wert=13 THEN 


HEN PRINT" "ELSE IF wert=1 THEN PEN 6:PR 
INT"A"ELSE IF wert=2 THEN PEN 2:PRINT"B" 


1898 FOR y=i TO 18:FOR x=i1 TO 19:LOCATE 

x,y:READ wert:iteld(x,y)=wert:IF wert=d T 
ELSE IF wert=3 THEN PEN 2:PRINT"C"ELSE 1 
F wert=4 THEN PEN 3: PRINT"D" 

1998 IF wert=5 THEN PEN 4:PRINT"E"ELSE I 
F wert=6& THEN PEN 11:PRINT"F"ELSE IF wer 
t=? THEN PEN P:5PRINT"G"ELSE IF wert=8 TH 
EN PEN 1:PRINT"H"ELSE IF wert=9 THEN PEN 


2488 DATA 
2418 DATA 
2428 DATA 
2438 DATA 
2449 DATA 
2458 DATA 
2468 DATA 
2478 DATA 
2489 DATA 
2498 DATA 
2599 '9, 


1928 LOCATE x,y:IF wert=15 THEN PEN 12:P 
RINT"T’ELSE IF wert=16 THEN PEN 3:PRINT* 
U"ELSE IF wert=17? THEN PEN 8:PRINT"V"ELS 


E IF wert=28 THEN PEN ?7:;PRINT"d" 


PEN L2:LOCATE x,y:PRINT"M"ELSE IF wertei 
1939 NEXT x,y 


4 THEN LOCATE x,y:PEN 198: PRINT"E" 
1949 READ geistx,geisty,geist%,b#,b1® 


1959 ’1. 


„aan - nn. ld 
DIDDTHNDDINDND - 


2518 DATA 


2528 DATA 
2539 DATA 
2549 DATA 
2559 DATA 
2569 DATA 
2578 DATA 
2589 DATA 
2598 DATA 
2628 DATA 
are in the 
26198 '18. 


1968 DATA 
1978 DATA 


1988 DATA 
1998 DATA 


2008 DATA 
2018 DATA 


2828 DATA 
2830 DATA 
2848 DATA 
2050 DATA 
are in the 
2060 ’2. 


1,1,9, you 


2628 DATA 
2638 DATA 
2649 DATA 
2639 DATA 
2668 DATA 
2678 DATA 
2688 DATA 
2698 DATA 
27298 DATA 
2718 DATA 
are under 
2728 ’11. 
2738 DATA 
2748 DATA 
2758 DATA 
2768 DATA 
2778 DATA 
2788 DATA 
2798 DATA 
2888 DATA 
2819 DATA 
2828 DATA 
are under 
2838 ’12, 


20 


2118 DATA 
2129 DATA 
2130 DATA 
2148 DATA 


21589 DATA 
are at the 


2879 DATA 
2888 DATA 
2898 DATA 
2188 DATA 
2160 DATA 
2178 3. 
2188 DATA 
2198 DATA 
2208 DATA 
2218 DATA 
2228 DATA 
2239 DATA 
2248 DATA 
2259 DATA 
2268 DATA 
2278 DATA 
are in the 
22689 ’4, 


LISTING 


2848 
2858 
2868 
2878 
2888 
2898 
2708 
2718 
2920 
2938 


are in the 


2949 
2959 
2960 
2978 
2988 
2998 
3099 
3018 
30228 
3939 
3048 


1,1,8,you 


3958 
3068 
3879 
3088 
3899 
3198 
3119 
3129 
3139 
3148 
3159 


DATA 


1,1,8,you 


3168 
3178 
3188 
3198 
3208 
3218 
93228 
3238 
3249 
3258 
3268 


. 15. 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


d,you are 


3278 
3288 
3298 
3399 
3318 
3329 
3338 
3348 
3358 
3369 
3378 


3389 


s 16. 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


’17. 


ne wu. 
SD 0x0 


90 yo y0r-- ou 
2uouW- =“ 


. SU NSINSUNN 
SN 


4,08,8,11 
14,14,14,14,14,14,14,14,9,13 
14,14,14,14,14,194,14,14,14,14, 
are by the,river 


4,14,14,14,14,14,0,13 
14,14,19,194,14,14,14,14,14,14, 
are under your, house 
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3398 
3420 
3418 
3420 
3439 
3448 
3459 
3469 
3478 
3489 


’ 
are in the,room of 


3498 
3599 
3518 
3528 
3539 
3549 
3559 
3568 
3578 
358g 
3599 


’18, 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


1,1,8,you 


3698 
3619 
3620 
3639 
3648 
3659 
3668 
3678 
3688 
3698 
3799 


3718 
3728 
3738 
3749 
3759 
3768 
3778 
3788 
3798 
3899 
3819 


are in the 


3828 
3839 
3849 
3859 
386% 
3878 
3889 
3898 
3799 
318 
3929 


u are by the,rive 


3939 


‚19. 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


’6, 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


'?. 


DATA 


16,16,16,16,16,16,16,16,16,16 
16,16,16,16,16,16, 16, 16,8, 11 
16,17,17,17,17,16,16,8,2, 13 
16,17,16,17,16,17,8,9,17,16 
19,08,17,17,17,16,0,8,17,16 
12,8,17,17,17,8,9,16, 16,16 
17,8,17,17,2,8,17,17,16,16 
7,17,8,17,17,16,16,16 
16,2,08,8,08,0,17,17,16,16 
9,9,9,9,9,9,9,9,9,9,1,1,2, you 
tire 


Li 
17,14,14,14,14,14,14,19,0, 11 
17,19,14,14,14,14,14,14,8,13 
16,16,16,16,16,16,16,16,17,16, 
are near the,water 


- 9%“ 


LISTING 


3948 DATA 7,20,1,20,7,20,1,20,7,8 
3958 DATA 20,15,0,0,0,0,0,9,0,20 

3968 DATA L,1,1,1,1,1,1,1,0,28 

3978 DATA 1,2,0,0,02,2,0,0,2,28 

3968 DATA 10,0,20,7,20,1,20,9,7,20 
3999 DATA 12,0,20,20,7,20,1,20,7,280 
4208 DATA 5,8,5,0,9,9,20,20,8,5 

4818 DATA 5,5, 28,9,8,20,11,5,5,5 

4820 DATA 5,5,5,8,9,9,13,5,5,5 

4838 DATA 5,5,5,5,5,5,5,5,5,5,1,1,0, you 


äre in the,vanpier garden 

4949 xm=2:ym=6: IF screen=2 AND spaten=1 

THEN LOCATE 6,2:PRINT" ":teld(6,2)=9 

40958 IF screen=3 AND balli=i THEN LOCATE 
7,9: PRINT” ";teld(7,9)=9 

4968 IF screen=10 AND ball2=1 THEN LOCAT 

E 9,2:PRINT" ":teld(9,2)=9 

4978 IF screen=16 AND licht=1 THEN LOCAT 

E 18,5:PEN 12:PRINT"K":LOCATE 19,6:PRINT 
"MYiteld(19,5)=11:teld(1d,6)=13:teld(7,3 
Jedi teld(7,6)=B:LOCATE 7,5:PRINT" ":LOCA 

TE 7,6:PRINT" " 

4Q8@ IF screen=19 AND sp=1 THEN LOCATE 3 
‚2: PRINT" "steld(3,2)=Q:LOCATE 7,7: PRINT 
" "sfe1d(7,7)=Q:LOCATE 7,8:PRINT" ":iteld 
(7,81=9 

4898 IF screen=3 AND tuer=i THEN LOCATE 

18,7:PRINT"K":LOCATE 19,8:PRINT"M":ifeldt 
18, Melliteld(19,8)=13 

4108 IF screen=8 AND se=i THEN LOCATE 2, 

2: PRINT" ":teld(2,2)=Q:LOCATE 6,5: PRINT" 
":LOCATE 6,6:PRINT" "steld(6,5)=d: feld( 

6,6)=9 

4118 CLSHL:IF bag=i AND spaten=i AND tue 

r<)i THEN PRINT#HL,"bag:B "JELSE IF bag= 

1 AND(BALLi=1 OR ball2=1)THEN PRINT#I,"b 

ag:D " 

4128 PRINT#HL,"live:"slive 

4139 CLSER&:PRINTH6, DE: PRINT#H6,bLSI". "ICH 

RS(11) 

4148 LOCATE 2,6:PEN 15: PRINT"N":GOTO 119 

) 

4159 '’MUSIK 

A160 ENV 1,1,12,1,12,-1,S:READ t:SOUND 1 
‚t,30,0,1:SOUND 4,1%2,39,0,1 

4178 IF t=1 THEN RESTORE 4188:RETURN ELS 

E RETURN 

4189 DATA 368, 426,379,358,319,358,426,37 

9,478,426, 368,568, 426,379, 358, 319, 284, 35 

8,319,478,379, 426, 426, 358,319, 284,239, 28 

4,319,3358, 319, 284,426, 426,358, 319,284, 23 

9,319,358,379,478,426,426,379,426, 478,1 

4198 RETURN 

4208 'einsammeln 

4218 FOR s=i TO 8:FOR n=498 TO 288 STEP- 
13:50UND i,n/s,1,7:NEXT n,s:LOCATE xm,ym 
PRINT’ ":teldixmn,ym)=8:60T0 1169 

4220 ’geist L 

4239 LOCATE geistx,geisty: PRINT" ":geist 
xegeistx-l:IF teldigeistx,geisty)()2 THE 
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N geistx=geistx+i1 

4249 IF geistx=xn AND geisty=ym THEN 175 
8 

4259 SOUND 2,8,1,7,2,2,20:L0CATE geistx, 
geisty:PEN 14:PRINT"P":GOTO 1198 

4268 'geist R 

4278 LOCATE geistx,geisty:PRINT" ":;geist 
xegeistx+l:IF feld(geistx,geisty)t>Q THE 
N geistx=geistx-1 

4289 IF geistxexn AND geisty=ym THEN 173 

8 

4298 SOUND 2,9,1,7,8,0,20:L0CATE geistx, 
geisty:PEN 14:PRINT"P":GOTO 1198 

4399 'geist 0 

4319 LOCATE geistx,geisty:PRINT" ":geist 
yageisty-i: IF teldigeistx,geisty)C>2 THE 

N geisty=geisty+i 

4329 IF geistx=exm AND geisty=ym THEN 175 

[.) 

4338 SOUND 2,8,1,7,8,20,28:L0CATE geistx, 

geisty:PEN 14: PRINT"P":G0TO 119 

4349 ’geist U 

4358 LOCATE geistx,geisty:PRINT" ":igeist 

y=geisty+i: IF feld(geistx,geisty)<>d THE 

N geisty=geisty-L1 

4368 IF geistx=xm AND geistyeym THEN 173 

8 

4378 SOUND 2,8,1,7,8,28,28:L0CATE geistx, 

geisty:PEN 14: PRINT"P":G0OTO 1198 

4389 'treffer licht 

4390 bag=d;tre=stre+1:LOCATE 7,3:PEN IL:P 

RINT"F*SLOCATE 7,6: PRINT"F":FOR s=108 TO 
i STEP-1Q:FOR n=s TO 1 STEP-2:SOUND I1,n 
‚I, 7:NEXTINEXT:IF tre=2 THEN 4429 

4488 IF balli=si THEN balli=d ELSE IF bal 
12=1 THEN ball2=Q 

4418 GOTO 1168 

4428 'LICHT ZERSTOERT 

4438 ENV 2,11,-1,23:ENT 2,9,49,5,9,-18,1 

S:SOUND 1,145, 255,0,2,2,12:WHILE SAt1)<) 

4:WEND:bag=d:balli=d:ball2=d: spaten=d: LO 

CATE 19,5:PEN 11:PRINT"K":LOCATE 19,6:PR 

INT"M’ifeld(18,5)=1l:teld(19,6)=13: licht 

=1:teld(7,5)=d:teld(7,6)=9:ot=TIME 

4448 LOCATE 7,35:PEN 5:PRINT"F":LOCATE 7, 

6:PRINT"F":FOR y=198 TO 259:MOVE 308,y:D 

RAW 359, y,8:NEXT:PLOT 9,8,1:60T0 1198 

4459 ’seil ziehen 

4468 RESTORE 4188:EVERY 15 GOSUB 4159 

4478 FOR w=i TO 128989: NEXT: I=REMAIN(D) :L 

OCATE xm+1,ym:PEN 2:PRINT"S":FOR s=1 TO 

s20 STEP 3:SOUND 1,5,1,7:SOUND 4,5%2,1,7 

: NEXT 

4489 WINDOWH1,1,28,1,25: PAPERH1,9: SYMBOL 
AFTER Q:WINDOW SWAP 9, l:a6="Congratulat 
ion":b#="You have saved the":c#="Childre 

n !“ 

449% LOCATE 4,1:FOR a=i TO 14:PENta MOD 

6) +1: PRINT MID®(a®,a,i) 1: NEXT:PRINT:PRIN 

T:FOR b=1 TO 1L8°PEN(b MOD #) +1: PRINT MID 


LISTING 


6(b$,b,1)3:NEXTSPRINT:PRINT 

4308 LOCATE 5,5:FOR c=i TO 19:PEN(c MOD 
6) +1:PRINT MIDS(c#,c,1) 1:NEXT:LOCATE 1,2 
PRINT SPACES(I8):LOCATE 1,45PRINT SPACE 
s(18) 

4318 FOR x=1 TO 2ZB:LOCATE x,7:PEN(x MOD 
6) +1: PRINT CHRB(218) 1: NEXT 

4528 LOCATE 1,23: PRINT"Ein neues Spiel ? 
“ 


4539 be=INKEYS: IF be=""THEN 4538 

4548 IF UPPERS(bS)="J"THEN RUN ELSE IF U 

PPERStbS)="N"THEN CALL &BBFF:iCALL &BB4E: 

END 

4559 GOTO 4539 

4568 "keine zeit 

4578 WINDOW#1,1,29,1,25:5YMBOL AFTER 8:P 

APER#1,Q: WINDOW SWAP 8,1:L0CATE 1,23: INK 
15,18,6°PEN 1S:PRINT"The Children is":L 


"SLOCATE 1,24: PRINT SPACES(18) 

4588 ENT-3,1,2,1,1,-2,1:50UND 3,29,780,15 
‚8,3: WHILE SAtI)<>4:WEND:PEN 2:LOCATE 1, 
L:PRINT"You have run out’:LOCATE 1,3: PRI 
NT"of Time. ":LOCATE 1,S:PEN 1:PRINT"You 
were not able":LOCATE 1,7:PRINT"to save 
the Children":PEN 1 

4598 ENV 1,1,12,1,12,-1,3:RESTORE 4658: T 
ON=9:WHILE tC>L:READ t:SOUND 1,t,49,2,1: 
SOUND 4,1%*2,48,8,1:WEND 

4688 LOCATE 1,23:PEN 3:PRINT"Would you t 
ry it":LOCATE 1,23:PRINT"again (j/n) ?* 
4618 a8=INKEYS: IF as=""THEN 4618 

4628 IF UPPERS(aS)="J"THEN RUN ELSE IF U 
PPERS(a#)="N"THEN END 

4638 GOTO 4618 

4648 'musik 

4638 DATA 368, 426,379, 338,319, 358, 379,42 
6,478, 478,379, 426,568, 368, 638, 568, 368, 42 
6,426,379, 358, 319,284, 284,358, 284,319, 35 
8,379,478,478,379, 426, 426,379, 426,478, 1 
4668 '5. Scr seil einsamneln 

4678 se=1:LOCATE 2,2:PRINT" ":teld(2,2)= 
B:LOCATE 6,35:PRINT" ":LOCATE 6,6:PRINT" 
"steld(6,5)=wQ:teldi6,6)=d:ENT-3,1,2,1,1, 
-2,1: FOR s=28 TO 999 STEP 13:SOUND 1,»,1 
7,8, 3,10: NEXT:FOR s=999 TO 8 STEP-23:680 
UND 4,3,1,7:NEXT:GOTO 1168 


AKTIV COMPUTERN 
MIT 
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AKTIV 
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das neue 


testet: 


Aus dem 
Verlagsprogramm 


*Schneidey/ 


© om 14,80 
08 124 


LISTING 


ADRESS UND TELE- 
FONVERZEICHNIS 


Hans-Jürgen Goldbach entwickelte seine Adressver- 
waltung ursprünglich für einen Gewerbebetrieb. Die 
Anforderungen, die hier gestellt wurden, waren hoch 
und vom Ergebnis können nun die Schneider aktiv- 
Leser profitieren. Trotz aller Professionalität des Pro- 
gramms ist die Benutzerführung betont einfach gehal- 
ten, um jeden Angestellten des Betriebes die Arbeit 
zu ermöglichen. Vor der Programmbeschreibung 
noch ein paar Hinweise zum Eintippen. 

Das Listing besteht aus zwei Teilen, dem Startpro- 
gramm und der eigentlichen Adressverwaltung. Es 
sollte zuerst das Startprogramm abgetippt und ab- 
gespeichert werden. Dann folgt der Hauptteil. Die er- 
sten erstellten Daten sollten auch immer unter 
„Privat“ abgespeichert werden, da das Programm 
nach Aufruf diese sofort einzuladen versucht. 
Weitere Dateien unter anderem Namen sind natür- 
lich möglich. 


Programmbeschreibung 


Das Telefonverzeichnis wird mit RUN“TV“ gestartet. 
Es wird anschließend in zwei Phasen geladen, zunächst 
die Maske und anschließend das Hauptprogramm. 
Da am Anfang noch keine Daten vorhanden sind, 
wird im Hauptprogramm darauf hingewiesen. Bei be- 
reits eingegebenen Daten werden diese nach 
RUN“TV“ mit eingeladen, ohne noch einmal eine 
Menütaste (3) drücken zu müssen. 
Die Steuerung erfolgt über Cursortasten und, bei an- 
let Auswahl, der Bestätigung durch die Enter- 
aste. 
Nach Aktivierung der Eingabe werden zu jedem Daten- 
satz 8 Angaben verlangt. Dazu gehören neben Name, 
Vorname und Wohnsitz auch drei Felder für die Ein- 
gabe von Bemerkungen. Dafür empfehlen sich zum 
Beispiel Geburtstage oder Kontakttermine. Die Post- 
leitzahl sollte dabei vierstellig, also etwa 8000 für 
München, eingegeben werden. 
Das Ausgabemenü arbeitet mit dem IN-STRING-Ver- 
fahren, d.h. es werden auch solche Datensätze ausge- 
geben, deren Suchbegriff nur teilweise angegeben 
wurde. Ausnahme ist jedoch wieder die Postleitzahl, 
die zur Suche vollständig eingegeben werden muß. 
Nach Anwahl des entsprechenden Menüs ist die 
Lade- oder Speicherroutine sofort funktionsbereit 
und arbeitet ohne nochmalige Sicherheitsabfrage. 
Dies muß insbesondere beim Einladen beachtet wer- 
den, da der im CPC befindliche Datensatz damit ge- 
löscht wird. 
Die selbe Funktion, nämlich das absichtliche Lö- 
schen, steht unter einem eigenen Menüpunkt zur Ver- 
fügung. Nach Anwahl der Option “Inhalt‘“ wird der 
gesamte Datensatz über den Bildschirm gescrollt. 
Einzelne Datenfelder lassen sich nach Auswahl von 
“ Ändern“ verbessern. Hierbei wird nach einer Num- 
mer gefragt, die das entsprechende Feld zur Korrek- 
tur auf den Bildschirm bringt. Wird keine Datennum- 
mer angegeben, so erfolgt der Rücksprung in das 
Hauptmenü. 
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1 ’ 

2 °’%* %* 
3 °’% Telefon- und Adressenverzeichnis* 
4 ’% von * 
3 ’% Hans-Juergen Goldbach * 
6 ’* fuer * 
»’% Schneider aktiv * 
8 ’* CPC 6647/6128 * 
9 °’% %* 
18. HRHRRHRRRRRRRBHRRHHRRBBHRRRRRHBHHHR: 
15 MODE 8 

22 PAPER 2:BORDER 2:INK 1,2,13:PEN i 

38 LOCATE 3,4: PRINT" 19.19.86 " 

48 LOCATE 3 „BS:PRINT"(CTRLX) H.-J. GOLDB 


ACH (CTRLX)® 

SQ PLOT 20,20:DRAW 29,398,2 

68 PLOT 29,20: DRAW 620,20 

78 PLOT 628,20: DRAW 620,398 

80 PLOT 20,399: DRAW 620,398 

98 FOR t=18 TO 16:L0CATE 3,t: PRINT" (CTRL 
X) (CTRLX) "INEXT:LOCATE 4,13:PRINT" PRAES 
ENTIERT * 

18@ LOCATE 7,28:PRINT" DAS " 

118 FOR t= i TO 3:NEXT 

128 MODE 2 

138 INK 8,9:PAPER B: INK 1,26: PEN 1: BORDE 
R4 
149 
1589 
168 


PLOT 29, 100:DRAW 29,379,1 

PLOT 20,370:DRAW 608,378 

PLOT 628,370: DRAW 699, 198 

17@ PLOT 29, 100:DRAW 690, 198 

189 PLOT 20,300:DRAW 609,308: PLOT 359,10 
0:DRAW 359,300 

199 LOCATE 29,5 

28@ PRINT"(CTRLXI TELEFONVERZ 
EICHNLIES (CTRLX)* 

218 LOCATE 19,9 

22@ PRINT"AUSKUNFT UEBER: " 

23@ LOCATE 4,21:PRINT" (CTRLX) BITTE WAR 

TEN (CTRLX) * 

248 LOCATE 18, 11:PRINT"DANSCHRLF 
Tec 

25@ LOCATE 18,13: PRINT»TELEFONN 
UMMER«" 

268 LOCATE 45,21: PRINT "(CTRLX) )>COPYRI 
GHT BY H.-J. GOLDBACH« < (CTRLX) ® 

27@ LOCATE 19,15: PRINT"DER EINGEGEBENEN 
PERSONEN" 

28@ RUN"tv.bin 


LISTING 


1. HRHBRHHRRHRRHHRBHHEHHRRHRRAHHHHHRNN: 
2 °’* * 
3 '% Telefon- und Adressenverzeichnis* 
4 4 von * 
3» ’% Hans-Juergen Goldbach % 
6 ’* tuer * 
»°’% Schneider aktiv * 
8 °'% CPC 6649/6128 * 
9. .'% % 


28 LET y=2080 

89 DIM FZe(y) ,KENS(y),TYP&(y) ,DATS(y),RE 
Vs(y) ,BEM$(y) ,Be$(y),b$(y) 

428 LOCATE 3,23 

45 Nrs="PRIVAT" 

s®@ ON ERROR GOTO 4189 

68 LOCATE 3,23 

88 OPENIN Nrs+" ‚tel" 

8 FOR n=1 TO y 

100 INPUT #9, KEN#(n) ,FZ#(n),TYP$(n) ,DAT$ 
(n) ‚REVS(n) ,BEMS(N) ,BES(N) ‚B$(n) 

118 IF LEN(ken$(n))=8 THEN 138 

128 NEXT 

139 CLOSEIN 

FOR t=1 TO 1:NEXT 

159 G0TO 178 

169 LET y=290 

MODE 2 

INK 8,9:PAPER @:INK 1,26:PEN 1:BORDE 


199 ON ERROR GOTO 4188 

280 CLS:MODE 2 

FOR s=i TO 2S:LOCATE 79,8:PRINT* (CTR 

LX) (CTRLX) "NEXT 

220 PLOT 5,10:DRAW 5,399 

230 PLOT 625,17:DRAW 625,399 

249 PLOT 7,170:DRAW 625,178 

250 PLOT 7,89:DRAW 625,89 

260 PLOT 7,280: DRAW 625,289 

27@ LOCATE 2,1 

28@ PRINT "(CTRLX) SPEICHERPLATZ-SPEICHE 

RPLATZ(CTRLX) " 

285 LOCATE 4,14:PRINT"DATEN "ICHRS(24);" 
"NRE" "ICHRB(24))" IM SPEICHER" 

27@ INK @,5:PAPER @:INK 1,26:PEN 1: BORDE 

R 8 

300 WINDOW #1,4,22,4,7:WINDOW #2,22,36,4 


319 PRINT 
PRINT 
PRINT 
PRINT 
358 PRINT 
PRINT 


#1, "EINGABE" 

Mi, "AUSGABE " 

#L, "LADEN?" 

#1, "SPEICHERN--)" 

#2, "LOESCHEN?" 

#2, "INHALT)* 

37@ PRINT #2, "AENDERN?" 

38@ PRINT #2, "LOESCH. AD-->" 

LOCATE 28,1 

PRINT FRE(""):LOCATE 69, 1:PRINT FRE( 


PLOT 7,245:DRAW 625,245: PLOT 7,299:D 
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RAW 625, 200 

428 PLOT 399,289: DRAW 390,399 

438 LOCATE 2,9:PRINT* (CTRLX) (CTRLY) * 

448 LOCATE 43,4 

458 PRINT" >>CURSORPOSITION EINGEBEN !<<" 

469 LOCATE 43,7:PRINT CHR®$(24)j" CURSORP 

OSITION "SCHRS(24)} 

478 LOCATE 2,12 

489 LOCATE 33, 9:PRINT"(CTRLX) TITELSEITE 
(CTRLX)* 

498 GOTO 4239 

500 LOCATE 38,9: PRINT" (CTRLX) (CTRLX) "ICU 

RSOR @:0N a G0TO 19,19,18,999,579, 1349, 1 

sg 

519 LOCATE 39, 9: PRINT" (CTRLX) (CTRLX) ":CU 

RSOR @:0N + GOTO 19,19,19,1759, 1899, 2,27 

19 

520 LOCATE 2,9:PRINT"(CTRLX) (CTRLX) ® 

539 IF INKEY(11)=8 THEN 2588 

549 IF INKEY(3)=8 THEN 2759 

559 IF INKEYSe"" THEN 558 

569 GOTO 498 

579 GOSUB 4588:FOR t=3 TO 7:LOCATE 4,t:P 

RINT" (CTRLX) (CTRLX) "NEXT 

589 LOCATE 35,9: PRINT" (CTRLX) SEITE 2 (C 

TRLX)® 

599 LOCATE 5,4: PRINT" (CTRLYIC--NAME ( 

CTRLX) * 

609 LOCATE 5,5: PRINT" CTRLX)<--VORNAME ( 

CTRLX)* 

61@ LOCATE 5,6:PRINT"LCTRLXIC--BEML ( 

CTRLX) * 


629 LOCATE 21,4:PRINT"(CTRLX) <--BEM 
2 (CTRLXI" 
638 LOCATE 21,35:PRINT"(CTRLX) <--BEM 
3 (CTRLX)* 
648 LOCATE 21,6:PRINT"(CTRLX) <--WOHNOR 
T tCTRLX) 
658 LOCATE 3,11:PRINT "(CTRLXIDAUSG 


E<CLCTRLX) * 
GOTO 4419 

ON a GOTO 19,10,19,700, 2849, 3380 

ON # GOTO 19,18, 19, 3400, 3789, 39648 
GOTO 668 

CLSHL:CLSHZ 

GOSUB 2749 

728 LOCATE 2,3:PRINT"(CTRLX) EINGABE BUC 
HSTABE = ALPH. AUSGABE (CTRLX)" 

73@ LOCATE 3,4: PRINT" (CTRLX) (CTRLX)* 
LOCATE 3,5: PRINT" tCTRLX) (CTRLX) * 
LOCATE 3,6: PRINT" (CTRLX) (CTRLX) * 
LOCATE 3,7:PRINT "(CTRLX) DA US G 
E<< N AM ECCTRLX)" 

LOCATE 43,4 

788 PRINT"(CTRLX) NAME EINGEBEN (CTRLX)* 
LOCATE 43,6 

INPUTja8: IF as="" THEN 179 

818 LOCATE 3, L1:PRINT"(CTRLXID> W << =W 
TERYIE << =E N D ECCTRLA)" 

FOR n= I TO y 


LISTING 


6838 IF kens(n)="" THEN 959 

848 IF UPPER# (a8) <>UPPERS(LEFTS(KENS(n), 
LEN(a® THEN 949 

858 LOCATE 2, 25:PRINT" (CTRLX) 
MMER-AUSGABENUMMER (CTRLX) " 
882 GOSUB 3160 

878 GOSUB 2778 

689 GOSUB 3918 

IF INKEY(59)=9 THEN 948 
IF INKEY(S8)=9 THEN 288 
919 G0TO 890 

928 CLS 

93% GOTO 290 

949 NEXT:GOTO 828 

938 LOCATE 3,11 

968 PRINT" (CTRLX) I>KEINE WEITEREN DATEN 
SCCTRLXI "I 

978 FOR t= I TO 3:NEXT 

988 G0OTO 299 

999 GOSUB 4580: GOSUB 2749 

18088 LOCATE 33, 9:PRINT"(CTRLX) SEITE I 
ETRLX) 

1818 CLSHI:CLEH2 

1828 LOCATE 3, 11: PRINT" (CTRLX) >>NAME OHN 
E EINGABE = ENDE<<(CTRLX) " 

18308 REM Angaben zum Kfz 

1848 BORDER 2: INK 8,6:PAPER B: INK 1,26:P 
EN i 

1858 LOCATE 3,6:PRINT"(CTRLX) EINGABE (C 
TRLX) ® 

1868 FOR n=i TO y 

IF LEN( KEN#(n))>Q THEN 1298 

1888 LOCATE 4,14: PRINT "" 

1898 LOCATE 4,14: INPUT "NAME: "IKENS(N) 
IF KENS(N)="" THEN 1390 

1118 LOCATE 4,16 

INPUT "VORNAME: "I FZ6(n) 

1138 LOCATE 4,17 

INPUT "STRASZE: "ITYPS(N) 

11359 LOCATE 4,18 

INPUT "WOHNORT: "I DATEN) 

1178 LOCATE 4,19 

INPUT "TELEFON: "IREV#S(n) 

1198 LOCATE 4,21 

INPUT "BEMERKUNG 1: "I BEMS(N) 

1218 LOCATE 4,22 

INPUT"BEMERKUNG 2: "I BES(N) 

1238 LOCATE 4,23 

INPUT "BEMERKUNG 3: "I B#(n) 

1259 LOCATE 4,12: PRINT CHRE(24) 5" "n""ICH 
R# (24) 

1268 IF INKEY@="" THEN 1260 

1278 FOR d=14 TO 19:L0CATE 17,d:PRINT""; 
NEXT 

1288 FOR d=21 TO 23:L0CATE 17,d: PRINT"": 
NEXT 

1298 NEXT 

1308 PRINT 

1318 LOCATE 3,11: PRINT" (CTRLX) >> EINGABE 
--E N D E-- <cetCTRLX " 


AUSGABENU 
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132@ FOR t=1 TO L:NEXT 

1338 GOTO 178 

1348 GOSUB 2748 

1359 CLEHLICLSH2 

1362 LOCATE 35,95 PRINT" (CTRLX) SEITE 3 ( 

CTRLX) * 

137@ LOCATE 4,6 

1388 PRINT"(CTRLX) >>LADEN<C (CTRLX)" 

1399 LOCATE 1,14: INPUT"(CTRLX) BITTE > 

>DATENNAME << EINGEBEN ! (CTRLX 

) "INRE 

1408 IF nr@="" THEN 168 

1418 LOCATE 3,11 

1428 PRINT"(CTRLIDATEN WERDEN 
BGELADE NICTRLX)" 

1438 LOCATE 3, 14: PRINT" CTRLX) (CTRLX)" 

1448 LOCATE 35, 9:PRINT"(CTRLX) SEITE 2 ( 

CTRLYX)* 

1445 ON ERROR GOTO 4618 

1458 OPENIN NR@+" „TEL" 

1462 FOR n=1 TO y 

1478 INPUT #9, KEN®(n) ,FZ#(n) TYP®(n) ‚DAT 

$(n) ,REV#(n) ‚BEMB(N) ‚BEB(N) ‚B#(n) 

1488 IF LEN(ken®(n))=@ THEN 1588 

1498 NEXT 

1598 CLOSEIN 

1518 LOCATE 49,4 

1528 PRINT" D A T E N":LOCATE 49,6:PRINT 

"SIND GELADEN !!" 

1530 FOR t=1 TO L:NEXT T 

1548 G0T0 178 

1559 GOSUB 2749 

1568 CLEHL:CLSH2 

1578 LOCATE 35,9: PRINT" (CTRLX) SEITE 4 ( 

CTRLX)® 

1588 LOCATE 4,6 

1598 PRINT"ICTRLX) >>SPEICHERN<< (CTRLX) 

u 


1595 LOCATE 9,17: PRINT"ERSTE DATEN IMMER 
UNTER DATENNAME --PRIVAT-- SPEICHERN !! 
u 


1688 LOCATE 2,14: INPUT"(CTRLX) BITTE >) 
DATENNAME << EINGEBEN ! (CTRLX) 
"INRS 

1619 IF nre="" THEN 168 

1628 LOCATE 3, 14: PRINT" (CTRLX) (CTRLX) " 

1638 LOCATE 3,11 

16948 PRINT"(CTRLIDATEN WERDEN 

GESPETLICHER T(CTRLX)" 

1658 OPENOUT NR#+" ‚TEL" 

1649 FOR n= i TO y 

1678 WRITE #9,KENS(n),FZ#(n) ,TYPS(N) ‚DAT 

#(n),REVS(n) ,BEMS(N) ,be#(n),b#(n) 

1688 IF LEN(ken#(n))=d THEN 1708 

1698 NEXT 

1788 CLOSEOUT 

1718 LOCATE 48,4 

1728 PRINT"DIE DATEN 

T"SIND GESPEICHERT" 

1738 FOR t= i TO 1:NEXT T 


":LOCATE 42,6:PRIN 


LISTING 


1748 60T0 178 

1750 GOSUB 4589: G0SUB 2748 

1768 LOCATE 35, 9:5PRINT"(CTRLX) SEITE 5 ( 

CTRLY)® 

1778 CLSHL:CLSH2 

1788 LOCATE 3,6 

1798 PRINT"(CTRLX) >>ANGABEN LOESCHEN«< 
(CTRLX)* 

1808 LOCATE 42,4 

1818 PRINT"AUSGABENUMMER EINGEBEN !!" 
1828 LOCATE 42,6 

1838 INPUTIG 

1848 LET KENS(d)I=#8:LET FZ6(DI=F#:LET TY 

P&(d)=+S:LET DATS(DI=FS:LET REVS(DI=4:L 

ET BEMS(DI=FS:LET beßin)=##:LET b#(n)=+# 
1858 LOCATE 3,11 

1868 PRINT "(CTRLX) AUSGABENUMMER(CTRLX) 
"dj" (CTRLX)GELOESCHT (CTRLX) * 

1878 FOR t = 1 TO 2:NEXT T 

1888 GOTO 178 

1898 GOSUB 4580: CLS:CLSHL:CLSH2 

1788 WINDOWN4,4,79,5,25 

1918 BORDER 13:PAPER 8: INK 2,6:PEN I: INK 
1,26 

1928 FOR N=1 TO 508 

1938 PRINT#4, USING" "In:PRINTH4, "<6=STOP) 
"SKENB(N) "CI" ItypBin) a "<C>"Idatein) 

1948 PRINTHA,"" 

1958 FOR t=1 TO 280: NEXT 

IF INKEY(60)=8 THEN 1989 

1978 NEXT 

IF INKEY6="" THEN 1988 

1998 GOTO 208 

2000 GOSUB 4580:CLSHL:CLSH2 

2018 LOCATE 38,9:PRINT"(CTRLX) SEITE 6 ( 

CTRLX)* 

2828 LOCATE 3,6:PRINT"(CTRLX) AENDERN (C 

TRLX) ® 

2038 GOSUB 2749 

2048 LOCATE 43,4 

2059 PRINT"(CTRLX) >>AUSGABENUMMER<< ?? 
(CTRLX) * 

2868 LOCATE 43,6 

2878 INPUT n 

2068 LOCATE 43,6:PRINT"*® 

IF n=8 THEN 178 

2108 GOSUB 3919 

2118 GOSUB 3949 

2128 LOCATE 42,4 

2138 PRINT"(CTRLX) DATENNUMMER ? (z.B.i 

= NAME) (CTRLX)* 

2148 LOCATE 42,6 

2158 INPUT D 

2168 LOCATE 42,6: PRINT"" 

2178 GOSUB 3919 

2188 GOSUB 3049 

2198 IF d=8 THEN 178 

2208 IF D<L OR D)B THEN 2128 

2218 ON D GOSUB 2299, 2339, 2379, 2410, 2458 
‚2490, 2520, 2558 
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2228 GOSUB 3359 

2230 GOSUB 3910:G0SUB 4219 

2249 FOR T= i TO 690: NEXT 

2258 LOCATE 3,11 

2268 PRINT" (CTRLX)NEUER DATENSATZ EINGEF 
UVEGTCTRLX) " 

2278 FOR t= I TO 2:NEXT 

22680 GOSUB 42190:G0T0 2198 

2299 LOCATE 3,11 

INPUT" (CTRLX) NAME (CTRLX) "IKENS(nN 


IF KENS(n)="" THEN 229% 

2328 RETURN 

2339 LOCATE 3,11 

INPUT" tCTRLX) VORNAME (CTRLX) "IFZE( 


IF FZ6(n)="" THEN 2338 

2369 RETURN 

2378 LOCATE 3,11 

INPUT" (CTRLX) STRASZE (CTRLX) "ITYP® 


IF TYPsin)="" 
2488 RETURN 

2418 LOCATE 3,11 
INPUT" (CTRLX) 


THEN 237% 


WOHNORT (CTRLX) "IDATS 


IF Dats(n)="" 
2448 RETURN 

2459 LOCATE 3,11 
INPUT" (CTRLX) 


THEN 241% 


TELEFON (CTRLX) "JREV® 


IF REVS(n)="" 
2488 RETURN 

2498 LOCATE 3,11 
INPUT" (CTRLX) 
BEMS (n) 

2518 RETURN 

2528 LOCATE 3, il 
2538 INPUT" (CTRLX) 
bEs(n) 

2548 RETURN 

2559 LOCATE 3,11 
2568 INPUT" (CTRLX) 
Bs(n) 

2578 RETURN 

2588 MODE L:CLS 
2598 LOCATE 1,6 
2688 PRINT">>NOTRUF< >>NOTRUFC< >>NOTRU 
Fi *® 

2618 LOCATE 1,18 

2628 PRINT"POLIZEIPRAESIDIUM TEL 9/755- 
ij" 

2638 LOCATE 1,12 

2648 PRINT"28. POL-REV.TEL 32993" 

2658 LOCATE 1,14 

2668 PRINT" 5. POL-REV.TEL 9/43 94 44" 
2678 LOCATE 1,16 

2688 PRINT"FEUERWEHRTEL 112° 

2698 IF INKEYS="" THEN 2698 

2798 GOTO 178 


THEN 2459 


BEMERKUNG 1 (CTRLX)"J 


BEMERKUNG 2 (CTRLX) "} 


BEMERKUNG 3 (CTRLX)"} 


LISTING 


2718 BERA,"%.bak 

2728 LOCATE 3, 11: PRINT" (CTRLX) >>ALTDATEN 
<< geloescht(< (CTRLX)" 

2738 FOR t= i TO 13S89:NEXT:GOTO 178 

2748 LOCATE 43,4: PRINT" " 

2758 LOCATE 43, 7:PRINT"" 

2768 RETURN 

2778 ' 

2788 PLOT 7,178:DRAW 625,178 

ef FOR t= 14 TO 14:L0CATE 19,t:PRINT"" 
ıNEXT 

28088 FOR t= 16 TO 19:L0CATE 19,t:PRINT"*® 
!NEXT 

2618 FOR t= 21 TO 23:L0CATE 19,t:PRINT"" 
ıNEXT 

2828 RETURN 

2830 LOCATE 28,23:PRINT n 

2849 GOSUB 4149:L0CATE 43,4: PRINT” (CTRLX 
IVORNAME (CTRLA" 

285% LOCATE 4,3:PRINT"(CTRLX) EINGABE VO 
RNAME (CTRLX) " 

2868 LOCATE 4,4: PRINT" (CTRLX) (CTRLX) "LO 
CATE 4,6: PRINT" (CTRLX) (CTRLX) " 

287% LOCATE 43,7: PRINT"*" 

2889 LET We="" 

2898 IF LEN(W@)<1 THEN 2999 ELSE 2938 
2708 LOCATE 43,6: INPUT WS:LOCATE 3,9: PRI 
NT"(CTRLXIBITTE WARTEN(CTRLX) 

2#18 IF LEN(WS)=8 THEN 178 

2928 FOR N=1 TO Y 

2938 IF ken®#(n)="" THEN LOCATE 3,11:PRIN 
T"(CTRLX)KEINE WEITEREN DATEN(CTRLX) ":G0 
TO 2968 

2748 IF UPPERB(WS)<>UPPERSB(LEFTS(FZELN), 
LEN(w# THEN 2959 ELSE 2989 

2958 NEXT 

2968 LOCATE 3,9: PRINT" CCTRLX) BITTE TASTE 
DRUECKEN (CTRLX) " 

2778 FOR t=i TO 1380: NEXT:GOTO 179 

288 GOSUB 3169:G0SUB 3019:605SUB 3568 
2999 GOSUB 3328 

3008 GOTO 2958 

381% LOCATE 19,14: PRINT CHRB(24)]"-- "UP 
PER$(ken#(n))" --"ICHRS(24):LOCATE 19,16 
PRINT UPPER®(#zE(n)):LOCATE 19,17: PRINT 
UPPERS (Typ®(n) ) 

32828 LOCATE 19,18:PRINT UPPER$(dats$(n)): 
LOCATE 19,19: PRINT UPPERS(revS(n)):LOCAT 
E 19,21:PRINT UPPER®(bem®(n) ):LOCATE 19, 
22: PRINT UPPER#(be#(n) ):LOCATE 19,23: PRI 
NT UPPERS(b$(n)) 

3938 RETURN 

3049 READ kk,ii,tt,rr,mm,uu, pp, dd 

3858 RESTORE 3148 

3868 LOCATE 16,14:PRINT kk 

3878 LOCATE 16,16:PRINT ii 

3888 LOCATE 16,17: PRINT tt 

3898 LOCATE 16,18:PRINT rr 

312% LOCATE 16,19:PRINT mn 

3118 LOCATE 16,21:PRINT uu 


3128 LOCATE 16,22:PRINT pp 
3138 LOCATE 16,23:PRINT dd 
3148 DATA 1,2,3,4,5,6,7,8 
3158 RETURN 

3168 WINDOW #3,4,19,14,23 
3178 PLOT 7,89:DRAW 625,89 

3188 PLOT 7,178:DRAW 623,178 
3198 PRINTH3, "NAME: ® 

3208 PRINTH3 

3218 PRINTH3, "VORNAME: 
3228 PRINT#3, "STRASZE: 
3238 PRINT#3, "WOHNORT; 
3248 PRINT#3, "TELEFON: 
3258 PRINT#3 

3268 PRINT#3, "BEMERKUNG 1 
327@ PRINT#3, "BEMERKUNG 2 
3289 PRINT#3, "BEMERKUNG 3 
3299 LOCATE 28,25:PRINT n 
3308 LOCATE 73,25:PRINT n 
3318 RETURN 

3328 LOCATE 3,9: PRINT" (CTRLX)BITTE TASTE 
DRUECKEN (CTRLX) ® 

3339 IF INKEYE="" THEN 

3348 LOCATE 19, 14:PRINT"" 

3359 FOR T=16 TO 19:L0CATE 19,T:PRINT"": 
NEXT T 

3368 FOR T=21 TO 23:LOCATE 19,T:PRINT"*: 
NEXT T 

337® RETURN 

3389 GOSUB 4149:L0CATE 43,4: PRINT" (CTRLX 
IBEMERKUNG 1 (CTRLX* 

339® LOCATE 4,S:PRINT"(CTRLX) BEMI einge 
ben >DATUM Q1.81.< (CTRLX)*® 

3498 LOCATE 4,4: PRINT" (CTRLX) (CTRLX) ":LO 
CATE 4,6: PRINT" (CTRLX) (CTRLX) * 

3418 LOCATE 43,7: PRINT"" 

3428 LET We="" 

3438 IF LEN(WE)<L THEN 3448 ELSE 3538 
3448 LOCATE 43,6: INPUT WS:LOCATE 3, 9:PRI 
NT"(CTRLX)BITTE WARTEN(CTRLX) ® 

3458 IF LEN(WE)=8 THEN 178 

3468 FOR n=1 TO Y 

3478 IF ken#(n)="" THEN LOCATE 3, 1L:PRIN 
T"(CTRLXIKEINE WEITEREN DATEN(CTRLX) "160 
TO 3528 

3488 IF UPPER#(W#)<UPPER®(LEFT#(bem®(n) 
‚LEN(n® THEN 3498 ELSE 3538 

3498 NEXT 

3508 LOCATE 3,9: PRINT" (CTRLX)BITTE TASTE 
DRUECKEN (CTRLX) ® 

3518 IF INKEYS="" THEN 3518 

3528 FOR t=i TO 1S88:NEXT:GOTO 178 

3338 GOSUB 3160:G0SUB 3B19:G0SUB 3568 
3548 GOSUB 3322 

3558 G0TO 3498 

356® LOCATE 2, 11: PRINT" (CTRLX) I>WC<=WEIT 

ER) IE<<=ENDE (CTRLX) * 

3378 IF INKEY(59)=8 THEN RETURN 

3589 IF INKEY(58)=9 THEN 178 

3598 GOTO 3369 


LISTING 


36908 GOSUB 4149:L0CATE 43,4: PRINT” CTRLX 
‚BEMERKUNG 2 (CTRLX)" 

361% LOCATE 4,3:PRINT" (CTRLX) BEM2 einge 

ben >DATUM 81.81. (CTRLX) " 

3628 LOCATE 4,4: PRINT" (CTRLK) (CTRLX) ":LO 

CATE 4,6:PRINT" (CTRLX) CCTRLX)" 

3638 LOCATE 43,7: PRINT"" 

3648 LET W="" 

3658 IF LEN(W8)<L THEN 3669 ELSE 3759 
3669 LOCATE 43,6: INPUT WBSLOCATE 3,9: PRI 
NT"tCTRLX)BITTE WARTEN(CTRLX) " 

3678 IF LEN(WE)=2 THEN 178 

3688 FOR n=1 TO Y 

3698 IF ken®$(in)="" THEN LOCATE 3,11:PRIN 
T"tCTRLX)IKEINE WEITEREN DATEN (CTRLX) ": 60 
TO 3749 

3788 IF UPPERS(WS)<>UPPERS(LEFTS(beS(n), 

LEN{n®# THEN 3718 ELSE 3758 

3718 NEXT 

3728 LOCATE 3, 9: PRINT" (CTRLXIBITTE TASTE 
DRUECKEN (CTRLX) " 

3738 IF INKEY#="" THEN 3738 

3748 FOR tel TO 1388: NEXT:GOTO 178 

3759 GOSUB 3168:G0SUB 3219:G0SUB 3369 
3768 GBOSUB 3328 

3778 GOTO 3718 

3788 GOSUB 4148:L0CATE 43,4: PRINT" (CTRLX 
IBEMERKUNG 3 (CTRLX" 

3798 LOCATE 4,3:PRINT"(CTRLX) BEM 3 eig 
eben (CTRLX)” 

3888 LOCATE 4,4: PRINT" (CTRLX) (CTRLX) ":LO 

4,6: PRINT" (CTRLX) (CTRLX) ® 

3818 LOCATE 43,7: PRINT"" 

LET We="" 

IF LEN(WE)<i THEN 3849 ELSE 3939 
3848 LOCATE 43,6: INPUT WS:LOCATE 3,9; PRI 

NT" (CTRLX)I)BITTE WARTEN(CTRLX) " 

3858 IF LEN(W#)=9 THEN 178 

3868 FOR n=1 TO Y 

3878 IF ken®$(n)="" THEN LOCATE 3,11:PRIN 
T"(CTRLX)IKEINE WEITEREN DATEN (CTRLX) "260 
TO 3920 

3888 IF UPPERB(WS)<>UPPERSBILEFTS(bS(nN) ,L 
EN{n# THEN 3898 ELSE 3938 

3898 NEXT 

398% LOCATE 3, 9:PRINT"(CTRLX)BITTE TASTE 
DRUECKEN (CTRLX) " 

3918 IF INKEYS="" THEN 3919 

3928 FOR t=1 TO 1509: NEXT:GOTO 178 

3938 GOSUB 3169:G60SUB 3919: G0SUB 3569 
3948 GOSUB 3329 

3959 GOTO 3899 

3968 GOSUB 4148:L0CATE 43,4: PRINT" CCTRLX 
IWOHNORT KCTRLX" 

3978 LOCATE 4,S:PRINT"(CTRLX) WOHNORT e 
ingeben (CTRLX)* 

3988 LOCATE 4,4:PRINT" (CTRLX) (CTRLX) ":LO 
CATE 4,6: PRINT" (CTRLX) (CTRLX) " 

3998 LOCATE 43,7: PRINT"" 

49098 LET We="" 
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4819 IF LEN(WEI<I THEN 49829 ELSE 4118 
4828 LOCATE 43,6: INPUT WS:LOCATE 3,9: PRI 
NT" (CTRLX)IBITTE WARTEN(CTRLX) " 

4838 IF LEN(WS)=8 THEN 179 

4848 FOR n=1 TO Y 

#858 IF ken$(n)="" THEN LOCATE 3,11:PRIN 
T" (CTRLX)IKEINE WEITEREN DATEN(CTRLX) ":G0 
TO 41898 

4068 IF UPPERS(WE)<>UPPERS(MIDS(DATS(nN), 
6,LEN(W® THEN 4979 ELSE 4118 

42878 NEXT 

42888 LOCATE 3,9: PRINT" (CTRLX)BITTE TASTE 
DRUECKEN (CTRLX) " 

IF INKEY$="" THEN 3919 

a128 FOR t=1 TO 1388: NEXT:!GOTO 170 
GOSUB 3169: G0SUB 3019: G605SUB 356% 
4128 GOSUB 3329 

4138 G60T0 4978 

4148 LOCATE 28,4: PRINT" (CTRLX) (CTRLX) " 
4159 LOCATE 28,S:PRINT*(CTRLX) (CTRLX) " 
LOCATE 29,6: PRINT" (CTRLX) (CTRLX) " 
4178 RETURN 

4188 LOCATE 18,23:PRINT" CCTRLX) NOCH KE 
INE DATEN VORHANDEN, BITTE DATEN EINGEBE 
N tCTRLX)® 

4198 FOR t= i TO 2598: NEXT 

4298 GOTO 178 

4218 LOCATE 3, 11:PRINT*"" 

4228 RETURN 

4238 'cursorsteuerung 

4248 CLEAR INPUT:FOR a=4 TO 8 

4258 LOCATE 16,a: PRINT" (CTRLXI<-(CTRLX) " 
4268 IF a=8 THEN LOCATE 16,8:PRINT"":PLO 
T 7,280:DRAW 690,280:G0T0 4339 

4278 IF INKEYS="" THEN 4279 

4288 LOCATE 16,a:PRINT" * 

4298 IF a=8 THEN LOCATE 16,8: PRINT" ":GOT 
0 4339 

4399 IF INKEY(18)=9 THEN 4329 

4318 NEXT 

4329 G0OTO 308 

4338 FOR f=4 TO ? 

4349 LOCATE 34,f 

4358 PRINT" (CTRLX)<-(CTRLX) 

4368 IF INKEYS="" THEN 4369 

4378 LOCATE 34, f:PRINT"" 

4388 IF INKEY(18)=8 THEN 4499 

4398 NEXT 

4498 GOTO 319 

4419 'cusorsteuerung ausgabe? 

4428 FOR a=4 TO ? 

4438 LOCATE 5,a: PRINT" (CTRLX) -->ICTRLX) " 
4448 IF a6 THEN LOCATE 5,7: PRINT" (CTRLX 
I CCTRLX) ":G0OTO 43898 

4458 IF INKEYS="" THEN 4459 

4468 LOCATE 5, a: PRINT" (CTRLX) (CTRLX) " 
4478 IF INKEY(18)=8 THEN 4490 

4488 NEXT 

4499 GOTO 67% 

4508 FOR f=4 TO 6 


LISTING 


4518 LOCATE 28, + 

4528 PRINT" (CTRLX)-->ICTRLX) " 

4539 IF INKEYS="" THEN 4539 

4549 LOCATE 29, +: PRINT" CCTRLX) (CTRLX)" 
4558 IF INKEY(18)=8 THEN 4379 

4568 NEXT 

4578 GOTO 480 o- 

4589 FOR i=i1 TO 46 

4599 OUT &BC99,2:0UT &BD29,i: FOR j=i1 TO 
1:5NEXT j,i 

4629 RETURN 

4618 'datennane nicht vorhanden 

4628 LOCATE 1,11: PRINT" (CTRLX)DATENNAME 
IST NICHT AUF DER DISCETTE(CTRLX)" 

4638 FOR T=i TO 2:NEXT 


4635 NRE="" 
4649 GOTO 168 
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39 ’%* SENSO % 
2°’% VON * 
sg ’* OLAF BARTSCH * 
6 ’%* FUER * 
8 ’%* SCHNEIDER AKTIV * 
gg ’* CPC 1446/6128 * 
98 RRRHRHRRRRSHRRHARRRRHAHRHRHHRHHHHHEN 


119 ’%#% Initialisierung 

129 MEMORY K3FFF 

130 DATA 21,00,49,01,09,48,11,28,cd,ed,b 

2,c9,21,00,c0,01,00,49,11,08,49,ed,b2,c9 

148 RESTORE 139:FOR x=&8589 TO &8317:REA 

D a8: POKE x,VAL("&"+a$) : NEXT 

159 ENV 1,5,-1,1,5,-1,4,5,-1,8:ENT 1,=25 

3,199,=319, 190, =426, 208 

169 INK 8,8:INK 6,26:DIM p(59):BORDER 13 

178 MODE 9:IF sm=8 THEN PEN 7:PRINT"SENS 

0":PRINT:PEN 6: PRINT"Bitte":PRINT"warten 

":PRINT:PRINT"Ich’:PRINT"zeichne" 

189 G0SUB 320 

199 '%%%* Anleitung 

288 MODE 1:INK 2,26:PEN 3:PRINT TAB(19)* 

Senso-Spielanleitung”’:PRINT:PRINT:PEN 2 

218 PRINT"Ich lasse ein Farbfeld aufleuc 

hten, dazuerklingt ein bestimmter Ton. 

Wenn dudran bist, drusckst du die 
den Feldentsprechende Taste. Dann lass 

e ich daserste und ein neues Feld na 

Cheinanderaufleuchten, und du musst wie 

der versu-"j 

228 PRINT"-chen, meine Vorgabe zu wiede 

rholen undso weiter." 

238 PRINT 

248 PRINT"Aber Vorsicht! Ich werde sch 

nell unge-duldig, wenn du zu lange ueber 

legst!” 

258 PRINT:PRINT:PRINT"Die Tasten 5,6,8,9 
(im Zitferntasten- block) entsprechen 
den Sensoflaechen." 

268 PRINT:PRINT:PEN 3:PRINT"Weiter: beli 

ebige Taste. ":PEN 2 

278 CLEAR INPUT 

288 CALL &BBd6 

2979 ’%4%* Spiel 

398 MODE B:CALL KBS99:FOR x=i TO 4:INK x 

sutx) NEXT 

s1@ WINDOW 1,7,1,19:CL$S 

329 WINDOW#2,13,14,14,15:CL$5#2 

338 PEN 6:PRINT"Start":PRINT:PRINT"mit": 

PRINT: PRINT"belie-":PRINT:PRINT"biger":P 

RINT: PRINT"Taste" 

348 IF INKEY$=""THEN 349 

358 FOR p=1 TO SQ:CLS#2:PEN#2,6:PRINTKZ, 

USING" #4" I p$ 

368 CLS:PRINT"Meine":PRINT:PRINT"Vorgabe 

":ptp)=INTERNDX4) +1: FOR t=i TO p:INK pit 

),itptt))SSOUND 1,p(t)X119,39 

378 FOR wel TO 339: NEXT:INK ptt),ucpit)) 
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FOR wei TO 159: NEXT 

389 NEXT 

398 CLS: PRINT" Jetzt":PRINT:PRINT"bist":P 

RINT:PRINT"Du":PRINT:PRINT"dran!"ic=QiCL 

EAR INPUT:ti=TIME 

498 as=INKEY$S: IF TIME-ti)69B THEN 7358 

419 IF a$="9"THEN a=1:60T0 469 

428 IF a®="8"THEN a=2:60T0 468 

439 IF a6="S"THEN a=3:60T0 469 

448 IF a$="6"THEN a=4:60T0 469 

459 GOTO 498 

469 as="":CLEAR INPUT:c=c+H1:5INK a,ilal:$ 

OUND 1,a#110,30:FOR w=i TO 359: NEXT: INK 

a,ula):IF a=ptc)AND c<{p THEN ti=TIME:GOT 

0 489 ELSE IF a<t>pic)THEN 778 

479 CLS:SOUND 1,128,48,15, 1: PRINT"Gut!*: 

FOR wei TO 1809: NEXT: NEXT 

488 MODE 1:PEN 1:INK 1,24: INK 2,6: PRINT" 
Ich glaub’ ich spinn!":PRINT:PRINT"Mit d 

einem Gehirn koenntest du mir Kon- kurre 
nz machen!” 

498 PEN 2:PRINT:PRINT p-1"- mal geschaft 
t!!ı®SPRINTSPEN i 

598 G0T0 868 

S1i@ '%#% Spielfeld zeichnen 

528 FOR x=1 TO 4:1INK x,9: NEXT 

339 DATA 439, 205,9,79,99,8,-89,0,8,98,19 

ar a 
’ 

349 DATA 416,195,9,-980,270,180,69,0,189, 

279,-19,-10,430,195,92,9,369,270,90,80,27 

8, 369, 18, -1d 

359 RESTORE 330:FOR sch=1 TO 4:READ ox,o 
y,Mmrx,mry,ax,ay,drx,dry,ix,iy,nfx,mfy 

S568 ORIGIN 0x,0y 

578 MOVER nrx,mry,sch:DEG:FOR x=ax TO ay 
STEF-2:DRAW COStx)#188,SIN(x) HL89: NEXT 

588 DRAWR drx,dry 

598 FOR x=ix TO iy STEP 2:DRAW COS(x)%*79 
„SIN(x) #90: NEXT 

688 MOVER mfx,mty:FILL sch 

619 NEXT 

629 ORIGIN 8,0: TAG:MOVE 349, 2988,10: INK 1 

8,17: PRINT "SENSO" JS TAGOFF 

638 TAG:RESTORE 729 

648 FOR sch=1 TO 4:READ x,y,zitff$:MOVE x 
‚Y,sch:G0SUB 7098 

659 MOVE x+3,y-5: TAG: PRINT zitfs} 

668 NEXT: TAGOFF 

678 CALL &858C ’Bildschirm sichern 

689 RESTORE 739:FOR x=1 TO 4:READ i,u:it 
xI=eisulx)zusINK x,itx)SNEXT 

698 RETURN 

788 DRAWR 42,8:DRAWR 9,-35:DRAWR -48,9:D 

RAUR 9,35 

718 RETURN 

728 DATA 78,90,9,20,90,8,28,50,5,79,50,6 

738 DATA 24,12,6,3,11,1,18,9 

708 ’%%%* Ende durch langes Ueberlegen 

758 CLS:PRINT"Bummier ":PRINT:PRINT"Jetzt 


"SPRINT: PRINT" ist":PRINT:PRINT"Schluss"! 
G0OTO 788 

769 '%%*%* Ende durch Fehler 

778 CLS:PRINT"Falsch!" 

789 SOUND 1,253,498,12,,1:FOR x=i TO 499 
8: NEXT 

798 PRINT:PRINT"So war":PRINT:PRINT"es*! 
PRINT:PRINT"richtig":FOR w=1 TO 508: NEXT 
888 FOR t=1 TO p:INK ptt),itptt)): SOUND 
1,p(t)%118,39: FOR w=i TO 338: NEXT 

818 INK ptt),utp(t)):FOR w=i TO 139: NEXT 
828 NEXT 

838 CLS:PRINT"Weiter":PRINT:PRINT"nit":P 
RINT: PRINT"belie-":PRINT:PRINT"biger":PR 
INT:PRINT"Taste" 

848 CALL &BBOd6 

859 MODE 1:PEN 1:INK 1,26:PRINT"Du hast“ 
p-1"Runden geschafft”":PRINT 

868 PRINT:PRINT"Noch ein Spiel?*":PRINT:P 
RINT"(j=ja / n=nein / a=ja mit Anleitung 
)"SCLEAR INPUT 

879 a$=LOWERS(INKEY$):IF a$=""THEN 878 
888 IF a$="j"THEN 308 

898 IF a$="a"THEN INK 3,11:G0T0 199 

999 IF a8="n"THEN MODE 2:PRINT"X#* Ende 
RR":END 

919 GOTO 878 


Eines der beliebtesten Spiele, die es für den CPC gibt, 
ist das Tonfolge-Spiel “Senso“. In einer der regulären 
Hefte von Schneider aktiv wurde deshalb schon ein- 
mal ein Listing vorgestellt, weshalb aber die Nachfrage, 
kaum daß das Heft vergriffen war, trotzdem weiterging. 
Für alle neu in den Schneider-Userkreis gekommenen 
Kollegen haben wir mit diesem Sonderheft Gelegen- 
heit, eine neue Version vorzustellen, denn so einfach 
dieses Spiel ist, es macht Spaß und sollte in keiner 
Sammlung fehlen. 


Programmbeschreibung 


Für jeden, der die Regeln noch nicht kennt, hier eine 
kurze Erklärung. Der CPC spielt Ihnen eine Tonfolge 
vor, welche Sie in kürzester Zeit nachspielen müssen. 
Gelingt Ihnen dies, wird die ‚‚Melodie‘“ etwas länger 
und damit auch schwieriger. 


LISTING | 


PUNKTE- 
ZÄHLER 


Gleich doppelter Nutzen ist mit dem ‚‚Punktezähler“ 
von Olaf Bartsch erreicht. Zum einen kann jeder dieses 
Listing in einem eigenen Programm verwenden, sofern 
er sich an die deklarierten Variablen hält. Damit ist 
dann endlich die Score-Verwaltung in Spielen gelöst, 
die mehrere Personen zulassen. 

Vorrangig ging es jedoch bei diesem Listing um eben 
jenen objektiven Schiedsrichter, der bei fast allen Kar- 
tenspielen benötigt wird. Ob Skat, Rommee oder 
Canasta, in Zukunft rechnet der CPC im Hintergrund 
gleich aus, wer die ‚Nase vorn hat“. 


Zum Programm 


Dieses Programm stellt einen elektronischen Auf- 
schreibblock für alle Spiele dar, bei denen um Punkte 
gespielt wird. Das Programm erklärt sich weitgehend 
selbst, dennoch hier einige Bemerkungen dazu. 

Am Anfang können einige Voreinstellungen, wie 
Spielerzahl und die Maximalpunktzahl bis zu der ge- 
spielt werden soll, eingestellt werden. Nach der Auf- 
listung der Spieler erscheint der eigentliche Eingabe- 
Bildschirm. Hier wird der Cursor in die Pfeiltasten 
des jeweiligen Spielers bewegt und dann die Punkt- 
zahl eingegeben. Der Punktezähler verwaltet natür- 
lich auch Spiele, bei denen die niedrigste Punktzahl 
gewinnt. Es muß lediglich vor jeder Eingabe ein 
Minuszeichen eingetippt werden. 

Am Ende einer Runde werden mit “CTRL“ und “R“ 
die neuen Punkte zu den bestehenden addiert. Ist die 
zu Beginn des Programmes eingegebene Ende-Bedin- 
gung erfüllt, wird der Sieger bekanntgegeben. 

Es gibt Spiele, bei denen läßt sich keine Maximal- 
punktzahl festlegen, weil sie über einen ganzen 
Abend hin gespielt werden. Bei solchen ‚Open end“- 
Spielen sollte man die Rundenzahl als Abbruchkri- 
terium mit 150000 Runden angeben und bei Spiel- 
ende die Tasten “CTRL“ und “COPY“ drücken, 
auch dann wird der Sieger ermittelt. 
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LISTING 


199 BHHHRHRHHRRRRBHRHASHHRRRRHHBRHRHHNE 
1208 ’%* PUNKTEZAEHLER * 
139 ’%* VoN % 
199 ’%* OLAF BARTSCH * 
159 ’%* FUER * 
169 ’* SCHNEIDER AKTIV * 
179 ’%* CPC 664/6128 * 
189 HHHHRRHRBHHRHHRRRBHHHHRRHHRRAHHHFN 
219 ° 

220 ’##% Initialisierung IA% 


230 DIM grozas(19) ,schreib#(19) 


249 GOSUB 1798’Grosse Zahlen und Umlaute 


259 EVERY 5 GOSUB 174% 

269 GOSUB 1768 

278 MODE 2:WINDOW 1,89, 1,23:WINDOWH1,1,8 

0,25, 25:MOVE 98,16:DRAW 649,16 

289 zeis="9123456789- "!ezeige"012345678 

9 ”% 

299 ' 

309 '#tkk Beginn K% 

318 PRINT TAB(3B)CHRS(24)" Punktezähler 
"CHRS (24) :PAPERHL,I:PENHL,9:CLSHI 

328 LOCATE 1,4:PRINT"’Das Programm dient 

der Verrechnung der Spielpunkte von bis 

zu 18 Spielern. 

339 azsp=3: spe=d:ezah=15990:b=7:bg=269:6 

OSUB 1339 

3489 LOCATE 1,29: PRINT*Sollen die Werte 9 

eändert werden (J/N) ?" 

359 PRINT#1,"Bitte entsprechende Taste t 
ippen" 

369 WHILE INKEYSC)"":WEND 

379 a8s=LOWERSCINKEYS):IF as="n"THEN 719 

ELSE IF asC)"j"THEN 379 

389 ’ 

399 "RR Werte aendern HHRHHHHHNK 

488 CLS:PRINT TAB(Z&4ICHRS(24)" Ändern de 

r ’Spielregeln’ "CHR$(24) 

419 b=1:bg=332:G0SUB 1369’4%# Anzeigen de 

r Werte 

420 ' 

439 ’%%%* Spielende aendern X%* 

449 LOCATE 18, 16:PRINT"Geändert wird ! 

SPIELENDE. " 

459 PRINT#1,"Bitte mit ’"CHR$(242)"’ und 
’"CHRS(243)"’ wählen, dann <RETURN? tip 

pen." 

468 LOCATE 35,5:IF spe=® THEN PRINT"Erre 
ichen der Höchstpunktzahl":LOCATE 13,7:P 

RINT"Höchstpunktzahl = "jELSE IF spe=1 T 

HEN PRINT"Anzahl der Runden ° 
:LOCATE 13, 7:PRINT"Rundenzahl y 

479 IF INKEY(8)=8 THEN spe=0:60T0 469 EL 

SE IF INKEY(1)=8 THEN spe=1:60T0 469 ELS 

E IF INKEY(18)=8 THEN 500 ELSE 478 

480 ' 

499 '%%% Hoechstpunkt-/Rundenzahl aender 

n 3% 

589 LOCATE 18, 16:PRINT"Geändert wird !: 
"s:IF spe=@ THEN PRINT"HÖCHSTPUNKTZAHL"E 
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LSE PRINT"RUNDENZAHL " 

S19 CLS#I:PRINT#1, "Den gewünschten Wert 
(1-79989) eingeben oder mit <RETURN? den 
alten übernehmen, 

528 WINDOW#2, 28,38, 20,20: PAPER#2, 1: PEN#2 
„B:CLS#H2:WHILE INKEYSC>""SWEND:LINE INPU 

T#2,"",iS:PAPER#2,0:PEN#2,1:IF i$=""THEN 
i6=STRs(ezah)ELSE IF LEN(i®))35 THEN 320 

530 i=VAL(IS)SIF iti OR 1>70008 THEN 529 
ELSE ezah=i:LOCATE 31,7:PRINT ezah" " 

348 ’%#% Spielerzahl aendern ##* 

358 LOCATE 18,18: PRINT"Geändert wird : 

SPIELERZAHL " 

569 CLS#H1:PRINTHL,"Mit "CHRS(249)*" und " 

CHRS(241)" die Spielerzahl bestimmen, mi 

t <RETURN) übernehmen.” 

378 PAPER#2,1:PENH2,9:CLS#2:WHILE INKEY$ 

<>" "SWENDSLOCATEH2,S,1 

588 LOCATEH#2,3,1:PRINTH2, azspi:FOR wart= 
1 TO 1S9:NEXT 

599 IF INKEY{O)=9 AND azsp<19 THEN azsp= 

azsp+t1:60T0 389 ELSE IF INKEY{Z2)=8 AND a 

zsp>l THEN azsp=sazsp-1:G60T0 389 ELSE IF 
INKEY(18)=8 THEN 698 ELSE 598 

688 PAPER#2,8:PEN#2,1:LOCATE 32,9: PRINT 

azsp 

618 ' 

628 WINDOWN2,1,88,13,23: CLSH2:CLSH1 

6380 LOCATE 19,16:PRINT"Soll noch einmal 

korrigiert werden (J/N) ?" 

649 PRINT#L, "Bitte entsprechende Taste t 
ippen" 

659 WHILE INKEYSC>"*":WEND 

669 a®=LOWERS(INKEYS):IF as="n"THEN 719 

ELSE IF a$C>";"THEN 669 

678 GOTO 498 

680 ' 

699 ’*%%* Namen der Spieler erfassen X%%* 

708 "%k%%* Bildschirm KK%%* 

718 MODE 2:WINDOW 1,88,1, 22: WINDOW#1,1,8 

9,23, 25:WINDOW#2,1,890,3, 22:WINDOWN3, 10,7 

2,7,17:MOVE 9,48: DRAW 649,48 

728 MOVE 8,2:DRAW 638,2,1:DRAW 638, 398: M 

OVE 636, 2:DRAW 636, 378: DRAW 2,398: DRAW 2 
‚2:MOVE 4,2:DRAW 4,398 

738 LOCATE 39, 2:PRINT CHR$(24)" Spieler 

erfassen "CHR$S(24):CLSH1 

7948 LOCATEHL,L,1:PRINT#L, "Bitte Namen de 

r Spieler eingeben (1..15 Zeichen lang). 
n 


758 PRINT#1,"Wenn in einer Namenszeile d 
as Zeichen + vorkommt oder ein ’und’, da 
nn wird dieser Name als Gruppe beha 
ndelt {wird z.B. mit ’Ihr’ angesprochen) 


768 LOCATE 2,5:PRINT" Wie heißen die Spi 
eler ?" 

778 ’X%%* Eingabe KH 

?88 CLS#3:DIM plazsp):DIM sp$tazsp) :FOR 
p=i TO azsp 
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759 LOCATER3,I,P:PRINTH2, SPACES(6DI:LOCA 
TER3, 1,p:PPINT#?,"Spieler"p"i "S:WHILE I 

NKEYSIS""SWEND:LINE INPUTR3,"",sp$tp):IF 
sp$(p)=""THEN 798 ELSE sp$(p)=LEFTS!sp$ 
{p), 1 

899 NEXT 

81a 

820 ’*#* Bildschirm vorbereiten X#* 

830 CLS 

849 LOCATE 1,1:PRINT STRINGS(89, 127) 5: FQ 

R s=i TO 22:LCCATE 1,5:FRINT CHRS(I27I5C 

HRS{L2TIS:NENTILOCATE 1,22:PRINT STRINGS$ 
(79 ,12”7)5:FOR s=1 TO 22:L0CATE 79,8: PRIN 
T CHRSLL27I SCHRE(L27I 5: NEXT 

85@ MOVE 0,48:DRAW 649,98: L0CATE 1,1 

869 LOCATE 32, 1:PRINT" Punktezähler " 
8?@ MOVE 16,62:DRAWR 619,9:DRAWR 9,329:D 

FAWR-610,0:DPAWR @,-329:MOVE 15,62: DRAWR 
610,0:DRAWR 9,329: DRAWR-619,9: DRAWR 2, - 
2320:WINDOW 4,77,3, 215 CLSH1 

888 LOCATE 1,1:PRINT"Spieler:":LOCATE 58 
‚„L:PRINT"’Gesamtpunkte: ":FOR p=1 TO azsp: 
LOCATE 1,p+3:PRINT sp$(p):LOCATE 58,p+3: 

PRINT grozas(9) NEXT 

899 rdz=Q 

988 LOCATE 15,1: PRINT"Punkte der aktuell 

en Runde: "5:LOCATE 1,17:PRINT"Rundenzahl 
s"rdz$:LOCATE 49,17: PRINT"Gespielt wird 
bis:"ezahj:IF spe=d THEN PRINT"Punkte”EL 
SE PRINT"Runden" 

919 PRINT#1," Zugelassene Zeichen: ’"zei 

%'', Vorzeitiges Ende: {CTRL>Y+<CCOPY? 

9298 LOCATEHI,1,2:PRINTHI,* Zwischenergeb 
ris addieren: *+>. Zeichen löschen: <DEL 
>, Monitor hell/dunkel- schalten: (CL 
R>. Punkte übergeben und beenden einer R 
unde: (CTRLI+CRI.* 

938 FOR p=i TO azsp:LOCATE 25,p+3: PRINT” 
8 ?: NEXT 

9aa °’ 

959 ’##%% Punkte eirgeben KH** 

969 »c=25:yc=4:spn=L:FOR p=1 TO azspiptip 
)=@: as=1!NEXT!LOCATE xc,yc 

9?7® CURSOR I'bei CPC464 mit CALI. KBBEA e 
rsetzen 

988 as=INKEYS:IF a$=""THEN 989 

998 IF a$="p"AND as>i THEN as=as-liyc=yc 
-1:LOCATE xc,yc 

10800 IF as="q"AND as{azsp THEN as=as+l!y 
=yC+tl:2LOCATE xc,yc 

1818 IF as="r"AND xc>25 THEN xc=xc-1:L0C 
ATE xc,yc 

1828 IF a$="s"AND xc{29 THEN xc=xc+1:L0C 
ATE xc,yc 

19308 IF a$=CHR$(127)AND xc?25 THEN xc=xc 
-L:LOCATE xc,yc:PRINT" "5:LOCATE xc,yc 
1949 IF as="-"THEN LOCATE 24, yc:PRINT"-" 
:LOCATE xc,yc 

1059 IF INKEY(9)=128 THEN GOSUB 1280:60T 
0 1509 
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1068 IF INSTR(ezei$,a$)<)9 AND xc(=29 TH 
EN xc=xc+t1:PRINT a$;} :LOCATE xc,yc 

1879 IF INKEY(ISI=@ THEN xc=25:L0CATE xc 
‚ycıIF as(azsp THEN ycosyc+liassas+tL!LOCA 
TE xc,yc 

1889 IF as="+"THEN GOSLB 1139 

1899 IF INKEY(S9)=128 THEN GOSUB 1289 
11809 GOTO 980 

1110 ° 
1120 
1139 
+8 


’*#%* Addieren *%%* 

GOSUB 1249: pl=w:iiOCATE 24,yc:PRINT" 
";xc=2S5:L0CATE xc,yc 

1149 as=INKEYS: IF as=""THEN 1149 

1159 IF as="r"AND xc>25 THEN xc=xc-1:L0C 

ATE xc,yc 

1168 IF as="s"AND xc{29 THEN xc=xc+1:L0C 

ATE xc,yc 

1178 IF a$=CHR$(127IAND xc>25 THEN xc=xc 
-1:LOCATE xc,yc:PRINT" "5:LOCATE xc,yc 
1189 IF a$="-"THEN LOCATE 24, yc:PRINT”-" 
:LOCATE xc,yc 

1198 IF INSTR(ezei$,a$)<>@ AND xc<i=29 TH 

EN xc=xc+1: PRINT a$5 :LOCATE xc,yc 

1209 IF INKEY(18)=0 THEN GOSUB 1249: zp=p 
1+wsLOCATE 24, yc: PRINT STR$(zp);" "; 
!xc=25:LOCATE xc,yc:RETURN 

1218 GOTO 1149 

1229 ’ 

1230 '%%%* Vom Monitor lesen #%*+ 
1249 w=ed:ins="":FOR p=23 TO 29: LOCATE p,yY 

ciwt=w$+COPYCHRS(HO) SNEXT:IFiWSC)"+ 

"AND w${Y"- ")THEN w=VAL (m$) : RETURN 

ELSE RETURN 

1268 ’ 

1279 ’%%% Neue Runde #** 

1288 rdz=erdz+tliyc=4:FOR as=ıi TO azsp!60S 

UB 1249: plas)=p(as) +w:GOSUB 1449: LOCATE 

24,yc:PRINT" 0 "3:LOCATE 59,yc:PRINT 

schreib$(as):IF ptas))ezah AND spe=® THE 

N glas)=t:hp=st 

1290 yc=yc+1:NEXT:IF kp=1 THEN hp=0:60T0 
1599 

1308 xc=25:yc=4:as=1:L0CATE xc,yc 

1319 LOCATE 1,17: PRINT"Rundenzahl:"rdzj: 
IF rdz)ezah AND spe=1 THEN 1598 

1328 LOCATE xc,yc:RETURN 

1339 ' 

1349 '’X%%% ’Spielregeln' zeigen KXX% 
1359 LOCATE 1,b:PRINT"Es gelten folgende 
’Spielregeln’:” 

1360 MOVE 80,b9-120: DRAWR 449,9: DRAWR 9, 
20: DRAWR-449, 0: DRANR 9,-128 

1378 LOCATE 13,b+4:PRINT"Ende des Spiels 
durch "3:IF spe=9 THEN PRINT"Erreichen 

der Höchstpunktzahl"ELSE IF spe=1 THEN P 

RINT"Anzahl der Runden” 

13898 LOCATE 13,b+6:IF spe=@ THEN PRINT"H 

öchstpunktzahl = "jELSE PRINT"Rundenzahl 
= 


1398 PRINT ezah 


| LISTING 


19498 LOCATE 13,b+8:PRINT"Anzahl der Spie 
ler: "azsp 
1419 RETURN 
1429 
1430 '#%% Grosse Zahlen #%* 
1448 schreib$(as)="":hilf$=STR$(plas)): 1 
F LEFT$S(hilf$,1)="-"THEN schreib$(as)=CH 
RS(146) +CHRS(L47) 
145% FOR k=2 TO LEN(hilf$):schreib$(as)= 
schreib$(as) +groza$s(VAL(MID$SCHIilf$,k,1)) 
I): NEXT 
1468 WHILE LEN(schreib$(as))(12:schreib# 
tas)=" "+schreib$t(as):WEND 
1478 RETURN 
14689 ' 
1498 ’%%%* Gewinner ermitteln *##* 
1598 FOR k=1 TO azsp:spa$s(k)=sps(k):palk 
)zp(k):NEXT:FOR k=1 TO azsp-1 
1518 gek 
1528 FOR j=k+i TO azsp 
1539 IF ptj)>ptg)THEN g=j 
1549 NEXT 
1558 IF g>k THEN p=p(k)ip(k)=pig)ipig)=p 
ssp$=sp$(k):sp$tk)=5p$(g) :spFlg)=5p$ 
1569 NEXT 
1578 FOR j=1 TO azsp:IF spa®s(j)=sp$(1)AN 
D pa(j)=p(1)THEN as=j 
1589 NEXT 
1599 °’ 
1609 ’#%%%# Sieger bekanntgeben Kkkk 
1618 SPEED INK 2,2:BORDER 15,18: WINDOWR4 
‚4,76,18,28 
1628 si$=" Herzlichen Glückwunsch, "+ 
sp$(1)+SPACES(1S-LEN(sp$(1))) 
1638 IF INSTR(sp$t1)," und "IQ OR INST 
R(spst1),"+")C>8 THEN si$=sis+", Ihr hab 
t gewonnen! "ELSE si6=sist", Du hast 
gewonnen! b 
1648 CURSOR B:LOCATE 22, 15:PRINT"Gespiel 
t wurde bis"ezahj: IF spe=8 THEN PRINT"Pu 
nkte"ELSE PRINT"Runden":’bei CPC464 CURS 
OR 8 mit CALL &BBED ersetzen 
1638 LOCATE 1,as+3:PRINT CHR$(24)sp$(L)C 
HRSt24) Ss CLSR4:LOCATEH4, 1,4: IF azsp>i THE 
N PRINT#4,"“ 2. Platz: "spsi2)".":IF a 
zsp>2 THEN LOCATE#4,69-LEN(sp$(3)),3:PRI 
NT#4,"3. Platz: "sp$(3)"."5 
1669 CLSHI:LOCATERL,1,L:PRINTHL, "Noch ei 
n Spiel (j=ja mit gleichen Spielern / 
a=ja mit anderen Spielern 

! nznein) ?" 
1678 CURSOR @:CLEAR INPUT:LOCATEH1, 38,2: 
aß="":WHILE aß="";as=INKEYS$! sis=RIGHTS(s 
i$,1)+LEFTS(siS,LEN(si$) -1):LOCATER4, 5,1 
:PRINT#4,CHRS (24) si$SCHR® (24) :WEND’bei CP 
0464 CURSOR © mit CALL &BBED ersetzen 
1688 BORDER 13: a8=UPPERS$ (a$) 
1699 IF a$="J"THEN CLS:GOTO 878 ELSE IF 
a$="A"THEN RUN 190° 
1788 IF a$="N"THEN MODE 2:PRINT CHRS(24) 
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"x Ende X#%* "CHRS(24):00SUB 1769: END 
1718 BORDER 15,18:60T0 1678 


4728 ° 


1738 ’#%%* Dunkelschaltung X#%* 

1748 IF NOT INKEY(16)THEN INK 8,D: INK 1, 
8:BORDER 9:FOR wart=i TO 598: NEXT: a$=INK 
EYS:WHILE INKEY$="":WEND:GOSUB 1769: FOR 
wart=i TO 399: NEXT 

1758 RETURN 

1768 INK 1,9: INK 9,13: BORDER 13: RETURN 
1779 

1780 ’%%%%* Grosse Zahlen Xi 

1798 SYMBOL AFTER 32:SYMBOL 148,63, 249,2 
49,249,240,248,63,2 

1898 SYMBOL 149,248,30,30,30,30, 30, 248,0 
1818 SYMBOL 159,3,15,3,3,3,3, 63,2 

1820 SYMBOL 151,192,192,192,192,192,192, 
252,8 

1839 SYMBOL 
1848 SYMBOL 
1859 SYMBOL 
1869 SYMBOL 
8 

1878 SYMBOL 
1889 SYMBOL 
232,2 

1898 SYMBOL 
1999 SYMBOL 
1918 SYMBOL 
1928 SYMBOL. 
1939 SYMBOL 
1949 SYMBOL 


152,7,30,0,7,30, 30, 31,0 
153,249, 60, 60,240,0,12,252,0 
154,7,28,9,3,2,28,7,0 
155,249, 60, 60,249, 60,60, 248, 


156, 3,15, 69,240, 235,0, 31,9 
157, 240,240, 249, 240, 252,249, 


158, 63,69, 60, 63,0,60,15,2 
159, 252,60,9,248, 69,69, 249,9 
160, 15,69, 60,63, 60,62, 15,0 
161,249, 60,9, 249,68, 60,249, 0 
162,63,60,0,8,3,3,3,0 

163, 252,60, 60,240, 192,192,19 


1959 SYMBOL 
1968 SYMBOL 


164,15,69,60,15,60,69,15,8 
165, 249,69,60,249, 60,60, 249, 


1978 SYMBOL 
1989 SYMBOL 


166, 15,68, 68, 15,0,68,15,8 
167,249, 60, 60,252, 60,60, 249, 


1998 SYMBOL 147,0,90,90,254,254,0,9,0 
20089 grozas(9) =CHR$(148) +CHRS(149) 

2818 grozas(i)=CHRSC15Y) +CHRS(151) 

2029 grozas(2)=CHRS (152) +CHRS(153) 

2830 grozas(3)=CHRS(154) +CHRS(15S) 

2849 grozas(4) =CHRS (156) +CHRS(157) 

2859 grozas(5)=CHRS(158) +CHR$(159) 

2868 grozas(6) =CHRE(168) +CHRE(161) 

2878 grozas(7) =CHR$(162) +CHRS(163) 

2089 grozas(8) =CHRE(164) +CHRS(165) 

2098 grozas(9)=CHRS(166) +CHR$(167) 

’rrt Umlaute Kr 

'xkt%% Die Zeilen 2180-2168 muessen 
nicht eingegeben werden, wenn schon ein 
eigener DIN-Zeichensatz geladen ist. 
2120 SYMBOL 48,124,198,198,198,198, 198,1 
24°’ ohne Querstrich (keine Verwechslung 
mit 8 moeglich) 

2130 SYMBOL 91,102,24,60,192,126,102,192 
2149 SYMBOL 92,1902,24,68,192,192,60,24 
2159 SYMBOL 93,102,9,192,192,192,182,6%@ 


LISTING 


2168 SYMBOL 123,108,0,1290,12,124,204,122 Das vorliegende Programm bietet eine Fülle von In- 


217@ SYMBOL 124,9,192,0,60,102,192,68 formationen für den ernährungsbewußten CPC-User. 
2189 SYMBOL 125,9,192,9,102,192,102,62 Soweit Angaben zu ermitteln waren, sind die Eiweiß-, 
2190 SYMBOL 126,6%,1902,102,124, 192 f 02.1 Kohlehydrate-, Fett-, Cholesterin- und Vitaminkon- 
24,9 : ? : ! zentrationen angegeben. Daß das Programm über 

‚76 Kalorien und Joule für alle der etwa 600(!) gespei- 
22949 RETURN cherten Nahrungsmittel Auskunft gibt, versteht 


sich von selbst. Sollte deshalb bei anderen Wirkstof- 
il fen lediglich ein “-“ erscheinen, so bedeutet dies 
Punkte der aktuellen Iunde: 


nicht, daß der Stoff nicht enthalten ist, sondern es 
konnten darüber keine Angaben ermittelt werden. 
Dementsprechend bedeutet ein “+“, daß der Stoff 
reichlich enthalten ist. 
Da mit einem Menü sicher durch das Programm ge- 
führt wird, erübrigen sich nähere Erklärungen. 
Ein Hinweis ist für den Fall wichtig, daß Nahrungs- 
mittel den Datazeilen hinzugefügt werden sollen. 
Insgesamt müssen 10 Werte je Nahrungsmittel einge- 
geben werden, nötigenfalls mit einem in Komma 
sngelaefen anziehen. Pro Datazeile ist der 

ielt wird bis: ert y in der zur betreffenden Nahrungsmittelgrup- 
a a pe gehörigen Zeile (270-480) — der Wert nl gibt die 
Nahrungsmittelgruppe an — um 1 zu erhöhen. Dem- 
entsprechend ist der Wert y in der dazugehörigen 
Zeile (640-850) um 10 für jede neue Datazeile zu 
erhöhen. 


117] JOPRPRrERE ss N} BR Niaein 
Nineralsteffe u RK fe fh 


KALORIEN- 
Ä ABELLE Zutaten: Gew. /St.: kcal: kJule: 


Nach der Statistik leidet jeder Zwegte Bundesbilsger 2 Kartarfäin 388.9 ‚28 1072 
Übergewicht. Starkes Übergewicht schadet zwar auc eule = 

der Gesundheit, aber seit Schlankheit zum Schönheits- Bufser - 2 tr 
ideal erhoben wurde, stören bereits ein paar Pfunde, Joghurt, 299.8 134 569 
über die der Hausarzt sogar hinwegsieht. Deshalb quä- Mayonnaise 0 __ 274 ____1146 
len sich Millionen Menschen täglich mit einem Stapel 1229.98 2943 8559 
Bücher und Tabellen ab und versuchen, die gültigen Sas2222=2222222220202022222= 
Nahrungsmittel-Werte zu ermitteln. 

Wie so oft kann sich der Besitzer eines Computers Ba ne a u re 
dabei etwas leichter tun. Für den CPC hat Egon 

Feddersen ein Programm entwickelt, welches sicher- 

lich recht umfangreich ist und einige Mühe beim Ab- Das Programm ist in der Routine Ernährungsplan 
tippen macht, aber das seinen Wert über lange Zeit ausgelegt für eine Speicherung von 45 Nahrungsmit- 
erhalten wird. Da das Programm eine Druckerausgabe teln, die mit den jeweils gewünschten Mengen und 
zuläßt, sind die Ausdrucke als Tages- und Wochen- den danach errechneten Nährstoffwerten in einer 
pläne zu verwenden und geben umfassend über die Liste auf den Bildschirm und auf den Drucker aus- 
aufgenommene Kalorienmenge Auskunft. Besonders gegeben werden. Dies sollte im Normalfall ausrei- 

für alle privaten Diätler, aber auch für Küchenchefs chend für einen Ernährungsplan sein. Andernfalls 
und Ernährungswissenschaftler, eine einfache und sind in der Zeile 60 die Werte für b$, gew, dl und 
schnelle Möglichkeit, einen Diätplan aufzustellen. el entsprechend anzupassen. 
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LISTING 


Pe EL EEE LETTER TE 00 2 2 2 2 2 2 2 22 2 202 5 
2. 2% KALORIEN-TABELLE * 
3 ’%* VON * 
4 ’%* EGON FEDDERSEN * 
s.'% FUER * 
6 ’* SCHNEIDER AKTIV * 
7 ’% CPC 464/664/6128 * 
En = & 2 2 2 0 2 0 2 2 2 212.2 2.2 2 2 2 2 2 2 2 2.2 22 2 2 0 2 2 2 2 2 
19° 

29 REM 


Sg REM %%%* Hauptprogramm **# 
oO DIM a$122),b$(49) ,gewigS),dit48) ,eLid 


78 sp=l:ab=d:g=d:kj=d:ikce=d 
89 REM *%%*%* Bildschirmaufbau X#* 
98 MODE Z:WINDOWHL,S?7,80,1,2S: PAFERNI, 1! 
PENHI,DECLSHLSWINDOWRZ2, 25,54, 4, 13: PAPERH 
2,8: PEN#2, 1:CLSH2:WINDOWH3, 25,48, 2,2: PAP 
ERR3,1:PEN#3,0:CLS#3:WINDOWNA, 2,54, 18,22 
:PAPER#4, DT PENH4, LICLSHATLOCATE 6,2: PRIN 
T"Ihre Eingabe „...:" 
188 LOCATE 1,1:PRINT CHRS(1SQ) FOR p=2 T 
G S4:LOCATE p,1:PRINT CHRS(1594):LOCATE p 
„tö:PRINT CHRS(1S4) :NEXT!FOR p=2 TO 16!:L 
OCATE 1,p:PRINT CHRE(1A49):LOCATE 55,p:!PR 
INT CHRS(LA49M:NEXT:LOCATE 55,1: PRINT CHR 
$1156):LOCATE 55,16: PRINT CHR$(153) 
118 LOCATE 1,16:PRINT CHRS(147):LOCATE 1 
‚„17:PRINT CHRS(1S9):FOR p=2 TO S4:LOCATE 
p, 17:PRINT CHRS(1S4) !LOCATE p,2S: PRINT 
CHRS(ASI) SNEXT!FOR p=18 TO 24:L0CATE 1,p 
:PRINT CHRSCIAP):LOCATE 55,p:PRINT CHRS( 
199) ;NEXTSLOCATE 35,17; PRINT CHRS(156) 
120 LOCATE 55,253 PRINT CHRE{I1S3) I LOCATE 
1,25: PRINT CHR$(147) 
138 LOCATE 2,14; PRINT STRING$(33, 154): L0 
tATE 2,23:PRINT STRINGS(53, 154) SLOCATE 1 
S,29:PRINT CHRS(164)" 1986 by Egon Fedde 
rsen":LOCATE#1,1,1:PRINT#L,CHRSC1SO) 5: FO 
R a=2 TO 23:L0OCATEHL,a, 1: FRINTRL,CHRSCLS 
4) :L0OCATERL, a, 25: PRINTHL,CHR$(154) 5: NEXT 
148 LOCATE#1,24,1:PRINTHL, CHRS(156) : FOR 
a=2 TO 24:L0CATERL,1,a: PRINT#1,CHRS(149) 
!LOCATERL, 24,3: PRINTHI,CHRS(149) :NEXT:LO 
CATER1,1,25:PRINT#1,CHRS(147) :LOCATERL,2 
4,25: PRINT#1,CHRS(153) 5 
159 L.OCATE#1,4,2:PRINT#1, "Bitte waehlen 
Sie:” 
168 DATA Gewichtseinheit (3),1,Kslorien 
(kcal),5,Joule (kJ), 19, Eineiss (9),9,Fet 
t (g9),12,Kohlenhydrate (9),3,Choiesterin 
{mg) ,‚4,Vitamıne,12,Mineralstoffe,? 
179 RESTORE 169: FOR a=si TO 9:FREAD as,b:ii 
UCATE 3,a+4: PRINT a85 STRINGS(D, 46) : NEXT 
189 REM #%% Nahrungsmittel-Hauptgrupper 
aus DATA-Zeilen auslesen *%* 
190 zeile=3:RESTORE 1SPAEFOR n=1 TO Z2ER 
EAD a8(n):LGCATERL,S,zeiie:PRIETHI,ns:LO 
caTEH1L,?,zeile:PRINTHI,a8S{in)!}; zeiie=zeı] 
e+i;NEXT 


209 REM #%% Eingabe auswerten X%%* 
218 IF spei=1 THEN LOCATE 13, 15:PRINT"Ge 
speicherte Werte auflisten = L" 
228 LOCATER3,1,2: INPUTK3," ",ni$iIF nl$= 
"Ss"OR ni$="S"THEN $59 ELSE IF nI$="1"OR 
nis="L"THEN 1428 ELSE IF nIS>CHRS (AB) AND 
nL$CiCHRS (SS) THEN 2538 ELSE PRINT CHRS(?) 
:LOCATE 14,20: PRINT’FALSCHEING 
ABE !";FOR t=1 TO 2800: NEXT:ICLSH4:GOTO 
218 
238 LOCATE 3,15: PRINT"Weiter=ENTER Ne 
ue GruppezsCE SucheneS Rechnen=R" 
248 ni=VAL(nIS$) 
258 IF ni<i OR n1L>22 THEN 219 
268 CLSH2:L.0CATER3, (24-LEN(a&(nl)))/2,2; 
PRINTW3, a$(nl) 
2?@ IF ni=t THEN RESTORE 1610: y=8:60T0 53 
288 IF ni=2 THEN PESTORE 1708: ,=12:60T0 
z9@ IF n1=3 THEN RESTORE 1839: v=15:60T0 
399 IF ni=4 THEN RESTCRE 1999: y=25:60T0 
318 IF ni=5 THEN RESTORE 2259: y=93: 69710 
32@ IF ni=6 THEN RESTORE 2699: y=29:G60TC 
339 IF ni=7 THEN RESTORE 2999: y=e7:!G0T0 5 
349 IF ni=3 THEN RESTORE 2988! y=61:60T70 
359 IF ni=9 THEN RESTORE 3680: ys11:!66T0 
36@ IF ni=18 THEN RESTORE 3720: y=$: 6070 
379 IF nie1l THEN RESTORE 3788: ,=13:60T0 
380 IF ni=12 THEN RESTORE 3929: y=16:60T0 
399 IF ni=13 THEN RESTORE 4099: y=8:60T0 
489 IF ni=14 THEN RESTORE 4189: y=48:6079 
ala IF ni=15 THEN RESTÜORE 4679: y=32:60T0 
320 IF nıi=16 THEN RESTORE SOBd!y=5:66T0 
330 IF ni=17 THEN RESTORE 5968: y=29: 54710 
Hau 3E ni=je THEN FRESTORE 5369: y=13:60710 
452 IF © 1=49 THEM RESTGRE 8510° 5=11: 60717 
466 IF nı=2d THEN RESTORE 5649: ,=81: 3070 
37a TFonl=2i THEN RESTORE A4s6ß: „=43:50T0 


482 IF ni=22 THEM RESTORE 5929: 7=26: 50T0 


LISTING 


490 REM 4% Ausgabe der Nahrungsmittel * 

% 

590 z=9: 

519 READ b$,c$,d$,0e$,f%,96,h$,i6,j$,k$ 

329 PRINT#2,CHRS(24)" "jb65” "CHRS(24):P 

RINT#2," "’c8:PRINT#2," "dS:PRINT#H2," "e6 
:PRINT#2,° "+S:PRINTH2,* "96: PRINTH2," " 

h$: PRINTH2," "iS: PRINT#2," "j$:PRINT#2," 
"48 

53% nis=INKEYS: IF nl$=""THEN 530 

548 IF nis="c"OR nis="C"’THEN CLS#3:CLSH2 
:LOCATE 3,1: PRINT SPC (52):60T0 218 

559 IF ni$="s"OR ni$="S"THEN CLS#3:CL5#2 
SLOCATE 3,15: PRINT SPC (52):60T0 699 

569 IF ni$="r"OR nis="R"THEN LOCATE 3,15 
PRINT SPC (52) :spei=0:60T0 1198 

578 z=ez+r1:CL542:IF z=y THEN 588 ELSE S19 

589 PRINT#2,CHRS(7)J:LOCATER4, 19,3: PRINT 

#4,"Keine weiteren Daten vorhanden !":FÜO 

R t=1 TO 29809: NEXT:PRINT#2,CHRS(7)J:SCLSH 

4: CLSH3:G0TO 269 

599 REM %%% Suchen nach einem bestimmten 
Nahrungsmittel #4 

68% LOCATE#4,3, 1: PRINT#4, "Welches Nahrun 

gsmittel suchen Sie ?":LOCATER4, 3,3: INPU 

T#4,"Falls bekannt, Nr. der Gruppe "ini 

618 LOCATEN3, (24-LEN(a$(n1)))/2,2:PRINTH 

3,3$(ni) 

628 LOCATER4, 3,5: INPUT#4, "Nahrungsmittel 
"such 

639 IF ni=8 THEN RESTORE 1619: y=5349:G0T 

0 869 

6498 IF ni=l 


THEN RESTORE 1610: y=89:G0T0 


ni=2 THEN RESTORE 1709: y=129:G60T0 


ni=3 THEN RESTORE 1839: y=159:G0T0 


ni=4 THEN RESTORE 1999: y=259:60T0 


ni=5 THEN RESTORE 2259: y=439:60T0 


ni=6 THEN RESTORE 2699: y=2909:G0T0 


ni=7 THEN RESTORE 2999: y=70:G0T0 


ni=8 THEN RESTORE 2989: y=619:G60T0 


ni=9 THEN RESTORE 3689: y=119:60T0 
ni=19 THEN RESTORE 3729: y=39:60T0 
ni=11 THEN RESTORE 3769: y=139:G0T 
ni=12 THEN RESTORE 3929: y=169: 60T 
ni=13 THEN RESTORE 4998: y=89:60T0 


ni=14 THEN RESTORE 4189: y=489:60T 
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788 IF 
0 868 
799 IF 
868 
809 IF 
0 869 
819 IF 
0 869 
828 IF 
0 868 
839 IF 
0 868 
848 IF 
0 869 
859 IF 
0 868 
869 FOR z=i TO y 

878 READ b$ 

888 IF b$="eof"THEN CLS#2:G0T0 219 

899 IF b#=such®$ THEN 958 ELSE NEXT 

998 CLSHA:LOCATEH4, 3,3: PRINTH4, such) " ji 
st nicht gespeichert! (Taste) ":PRINT C 
HR$ (7) 35 

919 TtS=eINKEYS:IF tts=""THEN 918 

928 CLEH2:CLSHA:LOCATE 3,13: PRINT SPC (S2 
):GOTO 218 

939 IF b$=such$ THEN 959 ELSE 870 

949 REM %%%* Ausgabe des gesuchten Nahrun 

gemittels #t* 

959 CLSH2:CLSH4:PRINTH2,CHRB(TI I :PRINTH2 
‚„CHR$(24)" "b$" "CHR$(24) 

969 READ c$ 

978 PRINTH2,” "c$ 

988 READ ds 

999 PRINT#2," "ds 

1808 READ e$ 

1818 PRINT#2," "e$ 

1828 READ #$ 
1838 PRINT#2, ” 
1049 READ 9$ 
1858 PRINT#2," 
1868 READ h$ 
1878 PRINT#2," 
1888 READ is 
1898 PRINTH2," 
1188 READ j® 
1118 PRINT#2," 
1128 READ ı4$ 
1138 PRINTH2," "6 

1148 LOCATE 3, 13: PRINT"Weiter=ENTER":LOC 

ATE 45, 15: PRINT"Rechnen=R" 

1159 aas=zINKEY$:IF aa$=""THEN 1159 

1168 IF aas="r"OR aas="R"THEN LOCATE 3,1 

S:PRINT SPC (32):60T0 1198 

1178 LOCATE 3,15: PRINT SPC(52):G0T0 219 
1188 REM #%% Umrechnen von Nahrungsmitte 
Iwerten ##% 

1199 tief: gieß:i hieß: il=diCLSH4:PRINTR4,C 

HRE(7)5:PRINTH4:PRINT#4,” Bitte einen Br 

uchteil oder ein Viel-":PRINT#4," faches 


ni=135 THEN RESTORE 4678: y=329: 60T 


ni=s1& THEN RESTORE 5999: y=59:60T0 
ni=s17 THEN RESTORE 5968: y=299: 60T 
ni=18 THEN RESTORE 5369: y=139: 60T 
ni=19 THEN RESTORE 3319: y=119: 60T 
ni=28 THEN RESTORE 5649: y=819:G0T 


ni=21 THEN RESTORE 6469: y=449: 60T 


ni=22 THEN RESTORE 6929: y=261:60T 


"f8$ 
"os 
ns 
"18 


"i$ 


LISTING 


der obigen Gewichtseinheit ohne": INPUTH 
4," Masseinheit (also nur Zittern) einge 
ben "jgew 
12988 cc$=LEFT$(cCS,4):c=VAL (cc$):d=VAL (d$ 
):di=ROUND(d/c#gen) 
1218 e=VAL (a8) :ei=ROUND(e/ckgen) 
1228 IF #$=CHRS(45)0R #$=CHRS(43) THEN 12 
38 ELSE f=VAL(#6) :+1=ROUNDIt/cHgew) 
1239 IF g6=CHRS(4SIOR gE=CHRSL43) THEN 12 
48 ELSE geVAL(gE) :gi=ROUND (g/ckgen) 
1248 IF h$=CHRS(ASIOR h6=CHRS(43) THEN 12 
58 ELSE h=VAL(ChS) :hL=ROUND(h/ckgen) 
1259 IF iS=CHRS(ASIOR I$SCHRSLA3)THEN 12 
68 ELSE i=VAL(IS): IL=ROUND(I/cHgen) 
1268 CLS#4:PRINT CHRS(7)5:LOCATEH2,8,2:P 
RINT#2,SPC (19) :LOCATE#2,17, 2: PRINT#2, gen 
:LOCATE#2,17,3:PRINT#2,d1:LOCATER2, 17,4: 
PRINTR2, ei 
1278 IF #$=CHRS(43) THEN LOCATERX2, 18,5: PR 
INT#2,CHR$(43) :60T0 1299 ELSE 1289 
1288 IF f1=8 THEN LOCATEN2,18,5:PRINT#H2, 
CHR® (43) ELSE LOCATEH2,17,5: PRINT#2, fi 
1298 IF 9$=CHR$(43) THEN LOCATEHX2,18,6:PR 
INT#2,CHR$(43):60T0 1319 ELSE 1399 
13088 IF gi=d THEN LOCATENH2,18,6:PRINTK2, 
CHRS(4S) ELSE LOCATEN2,17,6:PRINTH2,g1 
1318 IF hS=CHRSt43) THEN LOCATER2,18,7:PR 
INT#2,CHRS (43) :60T0 1339 ELSE 1329 
1320 IF ni=8 THEN LOCATEH2,18,7:PRINTR2, 
CHRS(45) ELSE LOCATEH2,17,7:PRINT#2,hi 
1339 IF i$=CHRS(43) THEN LOCATER2, 18,8: PR 
INT#2,CHR$ (43) :60T0 1359 ELSE 1349 
1348 IF il=8 THEN LOCATEXH2,18,8:PRINT#K2, 
CHRS(45) ELSE LOCATE#2,17,8:PRINT#2, il 
1358 LOCATE 3,13: PRINT"Weiter=ENTER 
Speichern=M ("sp") Rechnen=R" 
1360 tas=INKEYS:IF tas=""THEN 1368 
1379 IF tas="r"OR tas="R"THEN LOCATE 3,1 
S:PRINT SPC (52) :LOCATE 19,15:PRINT SPC(2 
S):FOR p=2 TO 19: LOCATER2,17,p:PRINTR2,S 
PC(SI :NEXT:GOTO 1199 
1388 IF tas=CHR$CI3I THEN LOCATE 3,15: PRI 
NT SPC (52) :CLS#4: CLSH2:CLSH3:GOTO 218 
1399 IF tas="n"’OR tas="M"THEN CLS#3:CLSH 
:spei=1:L0OCATE 3,15:PRINT SPC (52) :G0T0 
1419 
1498 GOTO 1368 
1419 LOCATENHL,2,ni+2:PRINT#H1,CHRS(243):P 
RINT CHRS(7)}:b$(sp)=b$i gen (sp) =gen:dlis 
p)sdiieltsp)zelisp=sp+1:60T0 219 
1428 WINDOW#7?,1,55,1,25:PAPER#?,9:PEN#H?, 
1: CLS#7:WINDOWNRE, 58, 79,2, 24: PAPER#6,1:PE 
NH&,D: CLSHA: LOCATER6, 2,7: PRINTH6, "A = Li 
ste schliessen":LOCATEN6, 2,9: PRINT#6, "D 
= Ausdrucken"':LOCATER6, 2,11: PRINTR6,"W = 
Weiterrechnen":LOCATER6,2,13:PRINTR6, "N 
= Neustart” 
193% LOCATER6,2,16:PRINTR6, "Bitte waehle 
N ..:* 
1448 FOR a=ı TO sp-1:PRINT#?,TAB(Z)b$ (a) 


39 


1: PRINT#7,TABCZDII USING" HAHN. H"Igen(a)j:P 
RINT#?, TAB(32) USING" HAHH" 5 AL (a) 5: PRINTH? 
„TABCAS)YUSING"RRHRH"JeLlta): IF a=25 THEN 
PRINT CHR$(7):LOCATERXÖ, 2, 29: PRINTH6, "Bit 
te Taste druecken !":CALL &BBO&:CLSH? 
1458 NEXT:LOCATEN6, 2,209: PRINT#6, SPC (22): 
ELSE NEXT 

1469 as=INKEYS: IF a$=""THEN 1460 

1478 IF a®="n"OR a$="N"THEN PRINT CHR$(? 
):LOCATER6, 19, 16: PRINTH6, "rten „..!":RUN 
1488 IF a$="a"OR a$="A"THEN LOCATER6,2,7 
:PRINT#6,SPC (29) 

1498 IF ab=8 AND(a$="a"OR as="A")THEN GO 
SUB 1338:60T0 1468 ELSE IF ab=1 AND(as=" 
a"OR a$="A")THEN 146% 

1599 IF ab=@ AND(a$="w"OR a$="W")ITHEN 98 
1518 IF ab=9 AND(a$="d’OR as="D"’)THEN 60 
SUB 1538:00T0 1359 ELSE IF ab=1 AND(as=" 
d"OR a$="D")THEN 1559 

1528 G0TO 1469 

1538 FOR a=i TO sp-Lige=ge+rgenialikcakct 
dila)ikj=kjtel(a) :NEXT: ab=1 

1548 PRINT#7,TAB(29)STRING$(33, 45): PRINT 
#7, TAB(ZWO USING" HRHH.H"Jges: PRINTH?,"” 9" 
3: PRINT#?7,TAB(32) USING"HHRR"IKCH:PRINTH? 
," kcal"53:PRINT#?,TAB(45) USING’ RANRH" IK; 
J:PRINT#?," KI"SPRINTH?, TAB(20) STRINGS (3 
3,61) RETURN 

1559 LOCATENG, 10, 16: PRINTH6,"rten ...'": 
PRINT#8, TAB(2) "Zutaten: Gen. /St. 
s kcal; kJule:” 

1568 PRINTN8:FOR a=i TO sp-L:PRINT#8,TAB 
(Z)bS&(a) 5: PRINTHB, TAB(2W) USING" HAHH.N"IG 
ewta) 5: PRINTRB, TAB(SQO) USING" RANK" ALLA) 5 
:PRINT#8, TAB(4O) USING" HHHHR”"jelta) NEXT 
1578 PRINT#8, TAB(29) STRINGS(25, 45): PRINT 
#8, TAB(2O) USING" HRHR. "5 ge5: PRINTHB, TAB ( 
38) USING’RHRH"IKCH:PRINTHS, TAB(AO) USING" 
HRHRRR"SKJ:PRINTHS, TAB(29) STRINGS (25,61): 
FOR p=1 TO 19: PRINTKS!NEXT:GOTO 146% 
1589 REM #%#% DATAs fuer Nahrungsmittelha 
uptgruppen K4% 

1598 DATA Hammel/Lamm,Kalb,Rind, Schwein, 
Wurstwaren, Gefluegel,Wild,Fisch, Fett/Del 
‚Eier,Milch,Kaese,Quark/Joghurt, Gemuese/ 
Kraeuter ‚Obst, Zucker, Brot/Kuchen,Getreid 
eprodukte,Kartoffelprodukte,Getraenke, Su 
essigkeiten,Genuerze/Zutaten 

16088 REM %%% DATAs fuer Nahrungsmittel %* 
*r 

1618 REM %%% Hammel, Lamm *+* 

16208 DATA Filetsteak, 125,313, 1319,23,23, 
-‚-,Bil B2 Niacin,‚Na K Fe Ph 

1638 DATA Herz, 198, 162,678, t, u a na as Yale 
1648 DATA Keule, 199,250,1947,18,18,-,65, 
BL B2 Niacin,‚Na K Fe Ph 

1658 DATA Kotelett, 159,555, 2324, 22,48, -, 
98,81 B2 Niacin,Na K Fe Fh 


LISTING 


1688 DATA Schulter, 109, 1949,586,-,7,,°,” 


169% DATA Zunge, 199, 254, 1963, u ak Tu Yand Dad Dal 
1788 REM 3% Kalb I* 
1719 DATA Bratwurst, 150,514,2152,-,*,-,- 


1720 DATA Brust,1909,142,595,19,6,-,90, Bi 
B2 Niacin,Na K Fe 

1739 DATA Filesteak, 125,131,5948,26,2,-,9 

2,Bl B2 Niscin,Na K Ph 

1748 DATA Frikassee, 199, 150,628,-,-,,% 


1758 DATA Haxe,100,107,4948,21,2,-,90,Bi 
B2 Niacin,Na K Fe Ph 
1768 DATA Herz,199,122,511,16,5,1,142, Bi 
B2 Niacin C,Na K Fe Ph 
1778 DATA Keule, 198, 198, 829,- Tau Tau Ya au au 
17808 DATA Kotelett,1590,183,766, 32,5, -,13 
5,Bl B2 Niacin, Na K Fe Ph 
1798 DATA Leber, 125, 179,749, 24,5,5, 313, B 
i B2 Niacin C,Na K Fe Ph 
189% DATA Niere, 199, 138,578,17,7,1,359,A 
BL B2 Niacin,Na K Fe Ph 
1818 DATA Schnitzel, 139,183,766, 32,5, -,1! 
35,Bl B2 Niacin,Na K Fe Ph 
1828 DATA Schulter, 100,118,494,21,3,-,98 
‚Bi B2 Niacin,‚Na K Fe Ph 
183% REM #** Rind HH 
1848 DATA Brust, 198, 278, 1139, 0171791 ° 
1839 DATA Filetsteak, 125, 158,662,24,6,*, 
88,Bl B2 Niacin,K Fe Ph 
1868 DATA Herz, 198,133, 556, 17,6, 1,98,C,N 
a K Ph 
1870 DATA Hochrippe, 109,297,1243,17,24,- 
‚79,Bl B2 Niacin,‚Na K Fe Ph 
1888 DATA Keule, 190, 205,858,20,13,-,70,B 
i B2 Niacin,‚K Fe Ph 
1898 DATA Leber, 139, 212,888,30,3,9,372,B 
i B2 Niacin C,Na K Fe Ph 
1988 DATA Lunge, 100,82, 343, +,-,",",",” 
1918 DATA Niere, 100,122,511,17,5,-,350,B 
1 B2 Niacin,‚Na K Fe Ph 
1928 DATA Ochsenschwanz, 1900,197,825, 29,1 
2,-,79,-,Na K 
1939 DATA Querrippe, 109,288,1206,18,22,- 
‚78,Bl B2 Niacin,‚Na K Fe Ph 
1949 DATA Roastbeet, 100, 254,1963,16,19,- 
‚79,Bl B2 Niacin,‚Na K Ca Fe Ph 
195% DATA Rumpsteak, 1029 mit Fettrand,2 
34,1063,-,-,", "1%, ° 
1968 DATA Schulter ,199,151,632,21,6,-,78 
‚Bi B2 A Niacin, Na K Fe Ph 
1979 DATA Tatar, 125, 192,804,32,6,-,78, Bi 
B2 Niacin,‚Na K Fe Ph 
1989 DATA Zunge, 190,223,934,16,16,-,108, 
Bi B2 Niacin,‚Na K Fe Ph 
199% REM ##% Schwein #% 
2000 DATA Bauch, 190,459, 1884, 12,42, -,78, 
-,K 
’ 
2818 DATA Bauchspeck, 190,858, 3592,3,89,- 


‚1080,Na K,Ph 

2028 DATA Eisbein, 190,297,667,12,16,-,78 
‚Bi B2 Niacin,Na K Ph 

2839 DATA Filetsteak, 125,220, 921,23,12,- 
‚88,B1 B2 Niacin,Na K Ph 

204% DATA Fionen, 190,900, 376? ,-,#,",",% 


2858 DATA Hack, 108 

18,23,-,78,-,K Fe Ph 

2069 DATA Haxe, 100,2097,867,12,16,*,70,Bl 
B2 Niacin,Na K Ph 

207% DATA Herz, 189,122,511,17,5,-,192, Bl 
B2 Niacin,Na K Fe Ph 

20888 DATA Hintereisbein, 190,447, 1871,16, 

29,-,78,Bl B2 Niacin,‚Na K Fe Ph 

2898 DATA Hinterhaxe, 199,447,1871,16,29, 

-,78,Bl B2 Niacin,Na K Fe Ph 

2108 DATA Kassier, 100,328,1373,19,26,-,7 

8,Bl B2 Niacin,K Fe Ph 

2118 DATA Keule, 199,345,1444,-,-,-,7,°,” 

2128 DATA Kotelett, 150,537, 2248, 23,46, -, 

185,Bl B2 Niacin,Na K Fe 

2138 DATA Leber, 125,184,770,25,7,1,313,B 

1 B2 Niacin,‚Na K Fe Ph 

2148 DATA Niere, 100,125,523,17,5,1,339,B 

i B2 Niacin,‚Na K Fe Ph 

2159 DATA Rueckenspeck, 199,854, 3576,2,99 

‚,10898,Bl B2 Niacin,Na K Fe Ph 

2160 DATA Schinken, 100,362,1316, 15,31, -, 

78,Bl B2 Niacin,‚Na K Fe Ph 

2178 DATA Schnalz,19008,947,3964,-,+,-,”,” 


gemischt, 316, 1323, 


’ 

2188 DATA Schnitzel, 125,2198,879, 26,18, -, 
88,Bl BZ Niacin,‚Na K Fe Ph 

2198 DATA Schulter, 100, 395,16354, 14,33, -, 
78,BL B2 Niacin,‚Na K Fe Ph 

2208 DATA Speck, 198 durchw. ‚698, 2755, 
9,66,-,1808,B1 B2 Niacin,Na K Fe Ph 
2218 DATA Vordereisbein, 198,287, 1202,18, 
22,-,78,Bl B2 Niacin,Na K Fe Ph 
2228 DATA Vorderhaxe, 109,287, 1202,18,22, 
-,78,Bl B2 Niacin,‚Na K Fe Ph 

2238 DATA Vorderschinken, 199,395, 1654,14 
2248 DATA Zunge, 190, 240,19095,15,18,-,149 
‚c,‚Na K Fe Ph 

2258 REM #%%* Fleisch- und Wurstwaren X%** 
2260 DATA Bierschinken, 190, 259,19047,16,1 
9,-,85,Bl B2 Niacin,Na K Fe Ph 

2279 DATA Bierwurst, 100,360, 1307, -,+,-,” 


ı.. 

2288 DATA Blutwurst, 198,425, 1779,13,39, - 
‚85,A Bi B2 Niacin,Na K Fe Ph 
2298 DATA Bockwurst, 109,294, 1231,12,25,- 
‚198, -,Na 

2300 DATA Bruehnurst, 100,155,649,-,-,-,- 


u | 
2318 DATA Cervelatwurst, 100,484, 2026,17, 
2328 DATA Corned beef, 198 deutsch, 159 


LISTING 


„628, "47474 740,” 

2330 DATA Corned beet, 190 
h,225,942,-,-, 71° % 
2348 DATA Fleischpastete, 109, 381,1595, - 


+7,07 15%4° 


’ 
2358 DATA Fleischsalat,100,339,1381,-,- 


Lu } 
2368 DATA Fleischwurst, 189, 315,1319,13,2 
7,-,85,Bl B2 Niacin,Na K Fe Ph 
2378 DATA Frankfurter Wuerstchen,59,128, 
536,7,10,-,58,B1 B2 Niacin,‚Na K Fe 
Ph 


amerikanisc 


2388 DATA Frikadelle,i St, 
59,1997,-,-,", u a ad 
2398 DATA Fruehstueckstleisch, 190,320, 13 


gebraten, 2 


2208 DATA Frusiistueckännseh, 100,339, 1381 
tt nyT 

2419 DATA Gaenseleberpastete, 29 
89,335, -,7,757,%1 7 

2020 DATA Gelbwurst,100,364,1524,-,+,-,- 


l EL, 


2a39 DATA Gruetzuurst,100,212,887,-,-,-, 
2448 DATA Jagdwurst, 100, 346,1449,16,29,- 
‚85,Bl B2 Niacin,Na K Fe Ph 

2458 DATA Kalbsbratwurst, 158,515, 2156, 16 
‚97,-,1580,-,- 

2468 DATA Kalbsleberwurst, 1900,449,1842, - 


‚+ ..... 


.” U 
2478 DATA Katenrauchwurst, 109, 399,1632, - 


tr,” u.” 
2480 DATA Knackwurst ,100,372,1557,12,34, 
-,85,A,Na K Fe Ph 
2498 DATA Leberkaese, 109,271,1134,-,-,-, 


u ae Ka 


2590 DATA Leberpastete, 100,334,1398,-,*, 


2518 DATA Leberwurst, 190 tein, 429,175 
8, -,#t, 747,77 
2528 DATA Leberwurst, 199 grob, 365, 152 
8, ty, 0,07 
25309 DATA Lebernmurst, 109 Get luegel, 28 


S,1193,-,-,740,07,7 

2548 DATA Mettwurst, 190,541, 2265,12,32, - 
‚85,Bl B2 Niacin,‚Na K Fe Ph 

2550 DATA Mortadella,199,367,1537,12,33, 
-,85,B1 B2 Niacin,Na K 

256@ DATA Muenchner Weissnurst, 109,255, 1 
868,11,22,-,1009,Bl B2 MNiacin C,Na K 
2578 DATA Pfaelzer Wurst,109,250,1946, - 
I, 7,04” 

en DATA Regensburger Wurst, 190, 249,198 
4,- 1... 


Zus DATA Salami,190,559,2303,18,50,-,85 


‚Bi B2 Niacin,Na K 
2608 DATA Schinken, 108 gekocht, 282,11 
81,28,21,-,79,Bi B2,Na K Fe Pt 


2619 DATA Schinken, 198 
5,1654,18,33,-,70,Bi 


geraeuchert, 39 
B2 Niacin,Na K 


41 


Fe Ph 

2628 DATA Schinkenplocknurst, 100,537, 225 

Gut nnyn 

2630 DATA Schinkenrotwurst, 109,489, 1674, 

2648 DATA Schmalztleisch, 140,535, 2249, 11 

‚si,-,808,Bl B2 Niacin,Na 

2658 DATA Schneinsbratwurst, 159,546, 2284 

‚28,99,-,150,Bl B2 Niacin,Na 

2669 DATA Teenurst,100,540,2268, -,+,-,-, 
’ 

2678 DATA Wiener Wuerstchen, 898,211,883,1 

2,17,-,808,B1 BZ Niacin,Na K Fe Ph 

268% DATA Zungenrurst,199,4980,2009,-,+,- 

’ 

2698 REM X#%* Getluegel #+* 

2798 DATA Brathuhn, 199,144,603,21,6,-,75 

‚Bi B2,Na K Fe Ph 

2718 DATA Ente, 109,243, 1917,18,17, 

i B2 Niacin,K Fe Ph 

ereR DATA Entenleber 108, 147,615, -,*,%, 


-,”5,B 


A739 Data Fasan, 188,143,599 ,+,-,-,- =, - 


2748 DATA Gans, 108, 364, 1524, 16, 3u,-, ?5,B 
ıi B2 Niacin, Na K Fe Ph 
2758 DATA Gaenseleber , 199, 215,900,-,-,-, 


’ 

2768 DATA Getluegelsalat,190,391,1271,-, 
-....2.”.20..” 

2778 DATA Haehnchen, 189 Foularde, 119,4 
58,15,5,-,75,Bl B2,Na K Fe Ph 

2789 DATA Haehnchen, 1/2 Stueck bratfert 
i9,3590,1468, +, 
2798 DATA Haehnchenbrust; 100,1909,456,-,- 


2808 DATA Haehnchenkeule, 190 


kac Tool Yes Set Yea 


nit Knoch 


2818 DATA Haehnchenleber, 198,197,615,-,- 


9 
2820 DATA Haehnchenschnitzel, 190,109, 456 
„+t,- 
2838 DATA Huhn, 199,144,693,21,6,-,75, Bi 
B2,Na K Fe Ph 
2848 DATA Huehnerbrust, 190,199, 456, 23,1, 
-,33,Bl B2 Niacin,Na K Fe Ph 
2858 DATA Huehnerlieber ,109,147,615, 22,5, 
1,185,A Bi B2 Niacın,Na K Fe Fh 
2868 DATA Huehnerkeule, 100,129,502,21,3, 
-‚68,Bi B2 MNiacin,Na K Fe Ph 
2870 DATA Puter, 190,292,1181,20,2@,-,75, 
Bi B2 Niacin,‚Na K Fe Ph 
2888 DATA Suppenhuhn, 10@,274,1147,19,29, 
-‚75,A Bi B2 Niacin,Fe Fh 
289% DATA Truthahn, 1929, 282,1181,20,20, -, 


”5,Bl. B2 Niacin,‚Na K Fe Ph 

2998 REM X** Wild *#* 

2910 DATA Hase, 190,124,519,22,3,-,i12,Bl 
B2 Niacin,Na € Fe Ph 

2928 DATA Hırsch, 190,123,515,21,3,-,119, 


B2,Na K Fh 


LISTING 


2938 DATA Kaninchen, 190,167,699,21,8,1,1 
18,Bl B2,Na K E Ph 

294% DATA Rehkeule,199,106,444,21,1,-,11 
0,B2,Na K Fe Ph 

29508 DATA Rehruecken, 109@,133,557,22,4,-, 
118,B2,Na K Fe Ph 

296% DATA Wildgefluegel,1900,81,339,13,3, 
-,68,-,Fe 

2978 DATA Wildschweinkeule, 190,98,477,22 
‚2,7,60,-,K 

29789 REM #%%* Fisch #*%* 
ar DATA Aal, 108 
3000 DATA Aal,189 ger. 
n,351,14969, - se 
3918 DATA Austern, I St.,20,84,-,-,7,",% 


- 


3928 DATA Barsch, 180,89,372,+,-,-,7,7, 7 


gruen, 297,1243,-,- 


0.Haut u.Sraete 


3038 DATA Bismarckhering, 108 #filetiert 
‚223,933, -,+,-,7,°%,7 
3048 DATA Brathering, 189 eingelegt,215 


Od, - tn ,7,0,0 
3958 DATA Bueckling, 198 
en,146,611,-,#,-,7,7,” 
3868 DATA Bueckling, 1909 
en, 232,971, -, Hy, 717,7 
3878 DATA Dorsch, 189,78,327,17,-,-,30,B2 
Niacin,Na K Ph 
3880 DATA Dorsch, 190 


m.Haut u.Graet 


0.Haut u.Graet 


getrocknet, 361,1 


3098 DATA Fischstaebchen, 159 
87,1285,-,*,7, 7,77 

3198 DATA Flunder , 190,79, 331, +,-,7,°,°,° 
3118 DATA Flunder, 190 geraeuchert, ı21, 
SO6,t,-,7,7,7,7 

21ER DATA Forelle, 199,104,435,+,-,-,","; 


il Port.,3 


3130 DATA Forelle, 190 
128,569, +,-,7,7, 7,” 
3149 DATA Goldbarsch, 108,114,477,18,4,-, 
38,B2 Niacin,Na K Ph 


tiletiert ger., 


3179 DATA Hecht, 100,89, 373,+,-, uf Ya Sal Su 
3189 DATA Heilbutt,199,1190,469,20,2,-,50 
‚A B2 Niacin,‚Na K Ph 
3199 DATA Heilbutt, 199 
as tnynn,n 

3299 DATA Hering, 1968 Nordsee gruen, 16 
0,678,18,15,-,85,A B2 Niacin,Na K Ph 
3210 DATA Hering, 198 Ostsee gruen, 199 
‚956, 15,12,-,89,A B2 Niacin,Na K Ph 
3228 DATA Hering, 198 in Gelee I Wuert 
el,152,636,-,#,7, 7,7,” 
3238 DATA Hering, 180 


geraeuchert,238 


mariniert,215,98 


Out, un” 
3249 DATA Hering, 100 tiletiert, 255,196 
Famgtgrgnynyn 


3258 DATA Hering, 199 i. Tomatensouce, 21 


42 


$ -,-.-,.. 


7,908, -, ıı 9 9 
a DATA Heringssalat, 109, 256,1939,-, +, 


-.-,.., - 


3278 DATA Heringsstipp, 109, 285,1294,-,+, 


- 2 2. 


939 
3288 DATA Hummer, 1/2 Stueck, 150,628, +, -, 


- 2 . . 


9,9 
32998 DATA kabel jau, 190,78,327,17,-,-,39, 
B2 Niacin,Na K Ph 
330% DATA Karpfen, 100, 125,523,-,-,7,7,%; 


3319 DATA Kaviar, 39 


deutscher, 41,172 


43l,t,-,-,7,7,- 

in Gelee,193,43 
Er ya Da Te 

33609 DATA Krabbensalat, 100 
ise,350,1465,-,F,-,",", 
3378 DATA Lachs, 189, 217,919, 28,14, -,35,B 
2 Niacin,Na K Ph 

3388 DATA Lachs, 189,193, 816, -,-,”,",°%,* 
339% DATA Makrele, 100, 193, 898,19,12,-,36 
‚B2 Niacin,Na K Ph 


mit Mayonna 


349% DATA Makrele, 128 geraeuchert, 238, 
96-17 7mnn | 
3419 DATA Matjes,i08 Filet, 2685,1193,-, 


+, -,7,047 
3428 DATA Matjes, 190 


3430 DATA Muscheln, 198 
aaa DATA" Rotbarsch, 1090,114,477,18,4,-,3 
8,B2 Niacin,Na K Ph 

3450 DATA Salzhering, 198, 239, 963, -,-,-,- 


Salat, 198,838, -, bu 


Fleisch, 72,301, 


LE | 

346% DATA Sardine,100,134,561,19,5,-,39, 
B2 Niacin,Ph 

3478 DATA Scheiltisch, 199,80, 335,18, -,-, 
31,A B2 Niacin,Na K Ph 
3489 DATA Schellfisch, 19% 
182,427, +,-,-,,7,° 

3498 DATA Schleie, 190,85, 356, +,-,-,7,”, 
3508 DATA Scholle, 200,166,695,34,2,-,198 
‚B2 Niacin,Na K Ph 

3518 DATA Seelachs, 100,88,368,18,1,-,33, 
A B2 Niacin,Na K Ph 
35289 DATA Seelachs, 198 
8 432,+, =, ul u Ta Yon 

3538 DATA Seezunge, 108, 99,377,18,1,-,380, 
B2 Niacin,Na K Ph 
3548 DATA Sprotten, 199 
3,648, -,-,°7, "7,747 

3355 DATA. Steinbutt, 1008,89,373,17,2,-,30 
‚B2 Niacin,Na K Ph 

3568 DATA Thunfisch, 180,242, 1013,22, 16, - 


geraeuchert, 


geraeuchert, 1 


geraeuchert, 15 


LISTING 


‚98,B2 Niacin,Na Ph 
3578 DATA Thunfisch, 189 in 0el,279,113 


3588 Data, Tintentisch, 198, 110,460, +,-,-, 
m.” 

3598 DATA Zander, 100,94, 393,+,-,-,-,-,- 

3608 REM X%* Fett und Del #%%* 

3618 DATA Butter, 180,755,3161,1,82,1,288 
„A,- 

3628 DATA Butter,15 
,",92,A,- 

36309 DATA Butter,5 
„I4,A,- 

3640 DATA Gaenseschnalz, 190,939, 3894, -,1 

080,-,75,-,- 

3659 DATA Schweineschmalz,190,939,3894,- 
‚198,-,10,-,- 


l EL, 113, 473, -,12 


il TL,38,159,-,4,- 


3668 DATA Margarine, 199 Halbtett, 389 
‚1591,-,49,-,-, A D E,Na 
367% DATA Margarine, 190 Pflanzen, 759 


‚3199,1,80,-,-,A D E,Na 
3688 DATA Margarine, 15 
3,473, -,12,-,-,A D E,Na 
3698 DATA Margarine, 
„159,-,4,-,-, A D E,Na 
3708 DATA Erdnussoel,1200,939,3894,-,100, 
2718 DATA Olivenoel,100,939,3894,-,199,- 
-‚A,- 
3728 REM #%*%* Eier #%* 
3738 DATA Ei,69 gekocht, 98,377,7,6,-, 
280,A,Na Fe Ph 
3748 DATA Eigelb, 28 
‚6,”,280,A,Na Fe Ph 
3758 DATA Eiweiss, 35 


Pfl. 1 EL,1l 


Ptl. 1 TL,38 


1 Stueck, 75, 314,3 
ı Stueck,19,88,4 
370 DATA Eiersalat, 100, 250,1055,-,-,-,- 


3778 DATA Spiegelei,2 St.,250,1946,-,-,- 
3788 REM %%*%* Milch/Sahne Kk#* 
3798 DATA Buttermilch, 200 
93,7,1,8,-,-,Na Ca Ph 

3899 DATA Kondensmilch, 1988,137,574,6,8,1 
2,26,A,Na Ca Ph 


1 Glas, 70,2 


s381@ DATA Kondensmilch, ? 19% L TL 
‚18,492,-,1,1,2,-,Na Ca Ph 

3828 DATA Kondensmilch, ? 7.35% 1 TL 
‚75,29,-,1,1,2,-,Na Ca Ph 

383% DATA Magermilch, 208 1 Glas, 70,29 
3,7,-,18,6,-,Na Ca Ph 


3849 DATA Sahne,®.1 Itr. 
‚110,40, 360,A,- 
3858 DATA Sahne, 39% 
2,134,3,11,4,36,A,- 
3868 DATA Sahne, 39% 
6,67,1,5,2,18,A,- 
3878 DATA Sahne, 199 
4,36, A,- 

3880 DATA Sahne, 15 


30%, 309,1293, 38 
1 EL geschlagen, 3 
I TL geschlagen, i 

19%,127,532,3,11, 


19% 1 EL,24,198,- 
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‚2,1,4,-,- 

389% DATA Sahne, 199 
8,4,34,A,- 

39908 DATA Trinkmilch, 298 1 Glas 3.5%, 
132,553,7,7,9,23,A,Na Ca Ph 

3910 DATA Vollmilch, 298 1 61.,136,569 
‚7,8,9,25,A,Na Ca Ph 

3920 REM ##% Kaese k*+ 

393% DATA Briekaese, 190 


Se lre 


—tr,7,0% 

3749 DATA Camembert, 1900 
18,34,1,88,A,Na Ca Ph 
3959 DATA Camembert, 109 
19,23,2,88,A,Na Ca Ph 
3968 DATA Doppelrahmfrischkaese, 190 6 
0%, 354,1482,15,31,2,195,A,Na Ca Ph 
397% DATA Edamer, 198 45%, 386, 1616,25, 
28,4,95,A,Na Ca Ph 


saure, 121,507,3,1 


45%,300, 1256, 
60%, 398, 1666, 


45%,301,1260, 


3988 DATA Edelpilzkaese, 109 45%,413,1 
729,23,33,2,112,A,Na Ca Ph 
399% DATA Emmentaler, 100 45%,417,1746 


‚27,31,3,185,A,Na Ca Ph 
4008 DATA Gouda, 198 45%,401,1679,26,2 
9,5,99,A,Na Ca Ph 


4818 DATA Handkaese, 199 109%,192,804, + 
2020 DATA Harzer Kaese, 59 19%,96,492, 
+, . ..-. ., -. - 

4038 Data. Limburger, 199 20%,199,833,2 
6,9,1,31,A,Na Ca Ph 

4048 DATA Romadur , 198 45%,309,1294, 21 


‚23,2,74,A,Na 


4059 DATA Schmelzkaese, 62.5 60%, 216,9 
84,8,19,1,64,-,Na Ca Ph 

486% DATA Schmelzkaese, 62.5 a5%,191,8 
00,9,14,4,51,A,Na Ca Ph 

4878 DATA Schmelzkaese, 199 20%,196,82 
1,17,9,9,31,A,Na Ca Ph 

4088 DATA Tilsiter, 190 45%,374,1566,2 
6,28,1,95,A,Na Ca Ph 

4899 REM **%* Quark/Joghurt #%%* 

4108 DATA Frischkaese, 199 20%, 110,461 


‚13,5,3,-,-,Na 

4119 DATA Joghurt, 175 a.Magermilch,? 
5,315,9,1,11,-,A,Na Ca Ph 

412% DATA Joghurt, 175 a.MM m. Fruecht 
en,117,49@,5,-,25,-,A,Na Ca Ph 

4138 DATA Joghurt, 175 a.Sahne, 329,13 
41,18,18,23,60,A,Na Ca Ph 

4148 DATA Joghurt, 175 a.Trinkmilch,i 
37,573,9,5,11,18,A,Na Ca Pn 


4159 DATA Speisequark, 198 20%,124,51 
9,13,5,6,14,-,Na Ca Ph 
4169 DATA Speisequark, 100 45%,179,74 
9,12,12,3,37,A,Na Ca Ph 
4178 DATA Speisequark, 199 mager ,88,3 


68,17,1,2,-,-,Na Ca Ph 
4180 REM **% Gemuese, Salat und Kraeuter 
22 

4198 DATA Bleichsellerie,199,21,88,1, 


-,42»9 


LISTING 


„-,A C,K 

4209 DATA Bleichsellerie,43 
‚92,1,-,2,-,A C,K 

4218 DATA Blumenkohl,199,28,117,2,-,4,-, 
A C,K 


ı St.,19 


4220 DATA Bohnen, 199 gruen, 33,138, 2, 
-,5,-, A C,K 
4239 DATA Bohnen, 198 weiss, 352,1474, 


21,2,38,-,A C,- 
424% DATA Braunkon1,108,46,193,4,1,5,-,A 
C,‚Na K Fe 
425% DATA Champignons, 100,24,100,3,-,3,- 
‚c,K Fe, 
4268 DATA Chicoree,199,16,67,1,-,2,-,C 
A,K 
427@ DATA Endivien,180,17,71,2,-,2,-, A 
C‚K Fe 
4288 DATA Erbsen, 109 
-,13,-,A C,Na K Fe 
429% DATA Feldsalat,100,22,92,2,-,3,-, A 
t,‚Na K Fe 
4309 DATA Gruenkoh1,108,46,193,4,1,5,-,A 
‚Na K Fe 
4318 DATA Gurken, 100,19,42,1,-,1,-,A,Na 
K Fe 
4328 DATA Knoblauch, 190 
149,586,6,-,28,-,-,Fe 
4338 DATA Knollensellerie, 199,38,159,2,- 
FRA.) C,Na K Fe 
4348 DATA Kohlrabi,190,26,189,2,-,4,-,A 
C,‚Na K Fe Ph 
4359 DATA Kohlrueben, 199, 35,147,1,-,7, =, 
436% DATA Kopfsalat,108,16,87,1,-,2,°, A, 
K Fe 
4378 DATA Kuerbis, 198,28,117,1,-,5,-,A,N 
a K Fe 
4388 DATA Lauch, 190, 38,159,2,-,6,-,-, Na 
K 
4398 DATA Linsen, 1098, 354,1482,24,1,56, -, 
A,Na K 
4499 DATA Mais, 100,1097,448,3,1,19,-,-,K 
4418 DATA Meerrettich, 15 I EL gerieb 
en,11,46,-,-,2,-,A C,Na K Fe 
4428 DATA Moehren, 198,35,147,1,-,7,-, A 
C‚K Fe 
4439 DATA Oliven, SQ 
‚>8,243,1,6,1,-,A,Fe 
4449 DATA Paprikaschoten, 180,28,117,1,-, 
5,-,A C,Na K 
4459 DATA Petersilie,19 
+35,-,1,-, A c‚K Fe 
4469 DATA Pfifterlinge,199,23,96,2,1,3,- 
‚K,- 
4479 DATA Porree, 199,38,159,2,-,6,-,-,Na 
K 
4489 DATA Radieschen, 199,19,80,1,-,4,-,A 
C‚K 
4498 DATA Rapunzel1,100,22,92,2,-,3,-,A 
C‚Na K Fe 


gruen,87,364,7, 


(1 Zehe=g), 


19 Stck. getuelilt 


ı Bd.,6,26,8 


4599 DATA Rettich,190,20,84,1,-,9,-, A c 
4518 DATA Rhabarber, 198,18,75,1,-,3,-,, 
K 


452% DATA Rosenkon1,109,32,218,4,1,7,-,A 
K 

D 

4538 DATA Rote Bete, 190,37,155,2,-,8,-,A 
‚K Fe 

4549 DATA Rotkoh1,189,27,113,2,-,5,-,A,K 
4559 DATA Sauerkraut,109,26,189,2,-,4,-, 
C,‚Na K 

4568 DATA Schnittlauch, 18 
‚8.5,-,1,-, A C,K Fe 
4578 DATA Schwarzwurzeln,100,74,310,1,-, 
16,-,-,K 

4588 DATA Spargel, 100,29,84,2,-,3,-,-,K 
4598 DATA Spinat,190,26,189,3,-,3,-,A,K 
Fe 

4689 DATA Steckrueben, 198,35, 147,1,-,7,- 
„A,K 


i Bd.,35,23 


4619 DATA Steinpilze, 198 trisch, 34,1 
42,3,-,5,7,°,K 
4628 DATA Steinpilze, 199 getrocknet, 


283, 1185,28, -,44,-,-,K 

4639 DATA Tomaten, 189, 19,88,1,-,3,-,A,K 

4648 DATA Weisskohl,1990,85,356,1,-,9,-, A 
C‚K Fe 

4658 DATA Wirsingkohl,189,33,138,3,-,4,- 

‚A,K 

4669 DATA Zwiebeln, 109,45,188,1,-,10,-,A 
K 

’ 

4678 REM X%%* Obst HH 

4688 DATA Ananas, 199,56,234,-,-,13,-,C,K 

4699 DATA Aptfel,199,55,238,-,-,13,°,C,K 

4788 DATA Aptel,125 1 Stueck, 69,289, 

-‚1,16,-,C,K 

4719 DATA Apfelmus,199,79,331,-,-,19,-,- 
K 


’ 

4728 DATA Aptelsine,190,54,226,1,-,12,-, 
C‚K 

4738 DATA Apfelsine, 159 
339,2,-,18,-,C,K 

4748 DATA Aprikosen, 199,54,226,1,-,13,-, 
A C,K 

4758 DATA Aprikose, 49 
7,37, C,K 

4768 DATA Banane, 189,99,414,1,-,23,-,C,K 
4778 DATA Birnen, 199,56,234,-,-,13,-,C,K 
4789 DATA Blaubeeren, 199,62,269,1,1,14,- 


i Stueck,8i, 


1 Stueck, 22,92 


4799 DATA Brombeeren, 109,48,291,1,1,9,-, 
48098 DATA Erdbeeren, 199,37,155,1,-,8,-,C 
4818 DATA Grapefruit, 198,32,134,1,-,10, - 
ah a Heidelbeeren, 190,62,260,1,1,14 
„65 


48389 DATA Himbeeren, 180,498,167,1,-,8,-,C 
K 
’ 


LISTING 


4848 DATA Johannisbeeren, 199 rot,45, 
188,1, -,10,-,C,K 

48538 DATA Johannisbeeren, 198 schwarz 
‚46,193,1,-,19,-,C,K 

4868 DATA Kirschen, 19% " sauer,69, 281, 
1,1,13,-,C,K 

4878 DATA Kirschen, 198 sues5,67,289, 


1,-,15,-,C,K 

4880 DATA Mandarinen, 100,48,201,1,-,11,- 
„C,K 

4899 DATA Mandarine, 75 
51,1,-,8,-,C,K 


4 Stueck, 36,1 


4999 DATA Melone, 199 Honig,26,199,1, 
-,6,,C,K 

4918 DATA Melone, 1998 Wasser ,24,199,1 
,79,7,C,K 

4928 DATA Mirabellen, 199,67, 281,1,-,16,- 
„C,K 

4938 DAT ERITBIEN, IND 1 Stueck, 46,1 


4948 DATA Saunen; 199,62,268,1,-,15,-,C 
‚K 
4958 DATA Preiselbeeren, 199,46, 193, -,1,1 
8,-,C,K 
4968 DATA Stachelbeeren, 109,72,301,1,-,1 
7?,,C,K 
4978 DATA Weintrauben, 100,74,3198,1,1,17, 
-,.C,K 

sw. 
4989 DATA 2itronen, 1980,28,117,1,1,7,-,C, 
K 
4998 DATA Zitrone,64 
7,5, 7,0, K 
5908 REM *%% Zucker 3%%* 
5918 DATA Diabetiker-Zucker, 3 
1,46, -,-, 7,73% 7 
5928 DATA Diaetzucker, 3 
5930" DATA Wuerfelzucker, 19 
40,167,-,-,10,-,-,- 
5048 DATA Zucker, 198,395,1650, -, 
5258 DATA Zucker, 15 
15,7,°,7 
3069 REM %%*% Brot *%%* 
t,-,0,° 
s988 DATA APEOIBEL DANN 1 Port.,490,1674, 
-ut,+,7,7, 
5999 DATA Baguette, 139 
ET Bu Ba a Bl Bu 
5188 DATA Bauernbrot,49,189,419,3,- 
‚Bi B2 Niacin,Na Ph 
s1Li18 DATA Beriiner,i St, ‚220, 921,-,-,*%,- 


’ 
5128 DATA Blaetterteig,i P1.,242,19823,-, 
u a 5 


5138 DATA Brezel,i St.,110,9460,-,-1"5%, 7 


1 Stueck,18,75, 


1: 7,3 
i TL,11,46,- 

4 Stueck, 
-,188,- 


l EL,69, 251,-,- 


i Stange, 399,16 


49,* 


- 
5148 DATA Broetchen, 49,111,469,3,-,23,- 
BL B2 Niacin,- 


45 


S1S5@ DATA Christstollen, 68 
2694, 1195, -,%,+,-,-,- 

5168 DATA Grahambrot, 35,88, 368,3, -,17,-, 
Bl B2 Niacin,Na Ph 

5178 DATA Graubrot,49,109,419,3,-,19,-,B 
i B2 MNiacin,Na Ph 

5188 DATA Haselnusskuchen, 1 St.,196,829, 


ac nd! Vai Ka! Tat Doz 


s198 Data Honigkuchen, 188,348, 1457, -,-,- 


..., - 


S200 DATA Kaesegebaeck, 100,560, 2344, -,- 


s218 DATA Kaesekuchen, 1 S5t.,244,1821,-,- 
Ca Ya Tal Ba 

5228 DATA Knaeckebrot, 19 

59,1,-,8,-,Bi B2 Niacin,Na 

“at,0,7,- 

5248 DATA Leisamenbrot, 49, 82,343,3,-,17, 

-‚Bi B2 Niacin,Na Ph 

5250 DATA Obstkuchen, 1 St.,290,837,-,-,* 

5268 DATA Pizza, 300,621,2632, - 2 +,” 
ten 

5288 DATA Pumpernickel1,39,74,319,2,-,15, 

-,Bi,Na 

529% DATA Roggenbrot,49,101,423,3,-,29,- 
‚Bi B2 Niacin,Na Ph 

3308 DATA Roggenvolilkornbrot,490,96,482,3 
‚7,19, -,Bi B2 Niacin,Na Ph 

5319 DATA Semmel,i St.,110,469,-,-,*+,-,” 


li Scheibe, 


Roggen, 38,1 


= 
5328 DATA Spekulatius, 109,495,2972,-,-,+ 


9 

5338 DATA Toastbrot, 29 
Pay-snntungnyn 

5349 DATA Weissbrot,390,78,327,2,-,15,-,B 
i B2 Niacin,Na Ph 

3359 DATA Weizenvollkornbrot, 30,72,3901,2 
;",194,-,Bl B2 Niacin,Ph 

5369 REM Nudeln und Getreideprodukte *#* 
5378 DATA Corn Flakes, 1@ 1 EL geh,,3 
9,163,1,1,8,-,B2 Niacin,- 

5389 DATA Eier -Teigwaren, 100, 388, 1624,14 
‚3,78,199,A Bi B2 Niacin,- 

5398 DATA Hatertlocken, 199,492,1683,14,7 
‚66, -,Bl B2 Niacin,K Ph 

5498 DATA Muesli,i Port. tischtertiy,192 
„804, -,-47,7,747 

5419 DATA Nudeln, 109,399,1633,13,3,72,-, 
A Bi B2 Niacin,= 

5428 DATA Maismeh1,180,376,1574,9,3,74,- 


i Scheibe, 65,2? 


‚Bi 82 Niacin,- 

5438 DATA Reis, 198,368, 1541,7,1,79,-,-,K 
5449 DATA Roggenmeh] , 109 (Typ 815),3 
64,1524,7,1,77?,-,Bl B2 Niacin,- 


5459 DATA Staerkemen],109,360,1597,-,-,+ 


- . . 


5468 DATA Staerkemehl,5 


Lı TL,18,75,-29 


LISTINGS | 


str, 
5478 DATA Weizenkeine, 199,490, 1675,27,9, 
46, -,Bl B2 Niacin,- 


5488 DATA Weizenkeime,8 i EL,32,134, 


2,1,4,-,Bl: B2 Niacin,- 
5498 DATA Weizenmehl, 190 (Typ 985),3 
68,1541,11,1,74,-,Bi B2 Niacin,- 


5508 DATA Zwieback,i 5t.,49,167,-,-,-,"; 
5518 REM %%% Kartoffeln und Kartoffelpro 
dukte #%% 

5520 DATA Kioesse, 190 
86,6,-,74,-,-,7 

5530 DATA Kartoffeln, 199,87,364,2,-,19,- 
‚Bi C,K 

5549 DATA Kartoffelkroketten, I St.,36, 13 
1,-,7,6,-,Bl C,K 

5558 DATA Kartoffelpueree,i EL tischfer 
tig,?79@, 293,1" %19"5 u a 

5568 DATA Kartotfelpuffer, 198 
68,1507,4,-,88,-,-,- 

5578 DATA Kartotffelstaerke, 109,361, 1511, 
1,-,83,-,-,- 

5589 DATA Kartoffelsuppe,i Teller,14S,69 


gekocht, 355,14 


3 St.,3 


1 Au Base Ya, ae: | 

5598 DATA Knoedelpulver,199,355,1486,6,- 
7717,77 

5698 DATA Pommes fites, 199 
‚921,9,8,394,-,-,- 

5619 DATA Puereepulver ,1099,357,1495,7,1, 
79-77 

5628 DATA Reibekuchen, 199 
507,4,-,80,-,-,- 

5639 REM ##% Getraenke ##%* 
5649 DATA Altbier,9.25 1,119,460,-,-,7,” 


heiss, 229 


3 St.,369,1 


ss.” 

5658 DATA Alkoholftreies Bier,9.33 1,91,3 
Bl,-,-, 007 

5668" DATA Ananasbowle,9.2 1,160,678, -,-, 


5678 DATA Aptelsaft,90.2 1,94,393,-,-,-,- 


5688 DATA Apfelwein, 2.25 1,110,468,-,-,- 
s,”.” 

5698 DATA Apricot-Brandy,2 c1,65,272,-,*- 
Lau ul Your Baei 

57200 DATA Bacardi, 2 cl, 5g, 289,55" %,% 
5718 DATA Bier,0.33 1 alkoholfrei,Pl, 
381,-,7,°,7,0%57 

5729 DATA Biere. 33 1 Diabetiker, 192, 
427, =, 7,74 01°7 


dunkel, 120,592, 


hell,117,498, -, 


>59 DATA Bockbier,8.25 1,165,691,-,-,*#, 


5768 DATA Brause,mit Suessstoff,9,9,-,-, 


- 2. - 


46 


5778 DATA Bruehe,9.25 I aus Wuerfel,?, 
ae a ar ha Dog ia 
5788 DATA Caro-Katftee,1 Tasse,4,17,- 


sg DATA 


5999 DATA Cherry Brandy, 2 c1,55,238,-,-, 


5810 DATA Coca Cola,9.2 1,88, 368, -,-,*, 


Champagner ,9.1 1,124,519,-,-,- 


.” 
5828 DATA 


Coca Cola,9.2 1] 


5838 DATA" Cognac,2 c1,65,272,-,”-, "175° 
5848 DATA Cointreau,2 c1,85,356,-,-,","; 


- .- 


light,11,46, 


5858 DATA Doppelkorn,2 c1,44,184,-,-,-,- 
s.. 
5860 DATA Eierlikoer,2 c1,50,209,-,-,-,- 


..” 

5878 DATA Ex-Bier,9.25 1] 
0,209,-,-,737,75 = 

3889 DATA Exportbier,8.25 1,115 ‚a81,-, 


L 
5898 DATA Fleischbruehe,@.25 ] 
1, 18, 42,-, -17,”7,7,”7 
5999 DATA Florida- -Boy,8.2 1,91,381,-,-,- 


 s»9 
S?18 DATA Fruchtsaft,9.2 1 
osen, 129, 592,-, -177,0,@ 


alkoholfrei,S 


Wuerfe 


m. Zucker i.D 


5929 DATA Fruchtsaft,9.2 1 mn.Suessstoff 
i. D.,89, 339.2.-,0.0, 5,0 
5938 DATA Gemuesesaft,9.1 1 Granini,19 


3949 DATA. Grapetruitsaft, 9.1 1 m.Zucker 
»48,167,-,-,7,7,7,” j 
0. Zucker 
‚20,84,-,-,7,-,%5 = 

5968 DATA Himbeergeist,2 c1,47,197,-,-,- 


’ 
S97g DATA Irish Coffee,i Glas, 200,837, -, 
IE Ki Bar Ta 


s988 DATA Johannisbeersaft,8.1 I rot,3 
0,209,-,-,-,,7, = 
5998 DATA Johannisbeersaft, 8. ıı1 schwa 


rz, 55 ‚230,-,7,",7,% 3,7 

6088 DATA Johannisbeersuessmost,9.2 1,12 
0,582,-,-7,7,7,7,7 ; 

Tasse ,d,0,-,-,", 


6218 DATA Katfee,i 

s.” 

6028 DATA Kaffee, Tasse m.Milch u.Z 
.,48,167, 177,7 u ae 

6038 DATA Kakao,®. 25 N mit Milch, 195,8 
16,-,-, -1"7,7,07,7 


6848 DATA Karottensaft, 188,32,134,-,-,, 


LE | 
6859 DATA Kathreiner Kaffee, i 
6, 25, u alt Ser Yazar nd Yeze 
6068 DATA Klarer Schnaps,2 c1,37,135, -, 


6878 DATA Korn,2 c1,38,1359,-,-,-,-,-,- 


Tasse, 


LISTINGS 


6888 DATA Kraeuterlikoer,2 c1,52,218,-,- 


6098 DATA Likoer,2 c1,63,272,-,-,", "7,7 
6198 DATA Limonade,®. 2 I mit Zucker, 65, 


LE | 
6118 DATA Malzbier,8.25 1,114,477,-,-,-, 


6128 DATA Malzkaftee,i Tasse,6,25,-,-,-, 


6138 DATA Mandarinensaft,9.1 1,43,180,-, 


jE3T De Dal Kat Da 
6149 DATA 


Maracujasaft,8.2 1,44,184,-,-, 


6158 DATA Mineralwasser ,d.2 1,0,0,-,-,-, 
...,t+ 

6168 DATA Naehrbier,9.25 1,149,586,-,-,*+ 
Pe ge 

6178 DATA Nesquick,i Tasse mit Milch,128 
582, -,7,7,0747,7 

6168 DATA Obstbrantnein, 2 cl 454,50, 20 

KL u Tue Da Tal Da Da 

6198 DATA Orangensaft,@.1 1 o.Zucker,46 
„193,547 07%47 

6288 DATA Orangensaft, 8.1 1 m.Zucker,62 
»26ß, nn“ 


6218 DATA Ovomaltine,199,499,1674,-,-,*, 


6228 DATA Ovomaltine,i TL,28,84,-,-,+,-, 


6238 DATA Ovomaltine,i Tasse n.Magermi 
Ich, 145, 697,-, ” ‚+ FH a Band 
6248 DATA Ovomaltine,i Tasse n.Vollmil 


ch,218,879,-,-,#+,7,7,7 
6258 DATA Pils,8.25 1,188,452,-,-,",7,%5 


6268 DATA Porter,8.25 | 


Bier,172,728,- 


6388 DATA 
6319 DATA 


’ 
6328 DATA 


’ 
Sangria,ß. 2 1,178, 712, -,-,%,% 
Sangrita, c1,15,63,-, 7,7 ,0%10% 


6330 DATA Sekt,9.1 1 1 61as,99,377,- 


Pd Tl Tas Ya 

6348 DATA Sherry, 175,314, 05,458 
6358 DATA Suessmost, 9.2 ] ji. Dosen, 169 
„670, =, .000 

6369 DATA Traubensaft, 2.2 1,158,661,-,- 


6378 DATA 


6388 DATA 


Underberg, 2.5 c1,85,526,-,*,-, 


Vollbier,2.23 1,129,3982,-,-,-, 


6398 DATA Weinbrand,2 c1,44,184,-,-,-,-, 
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en DATA Weissbier ,0.25 1,114,477,-,-,- 
sale" DATA Wermut,3 c1,65, 356, -,-,”7, 7,7,” 
642% DATA Whisky,4 e1,109,419,-,-,-,7,5% 


6458" REM" 4% Suessigkeiten Kr 

6468 DATA Atter Eight,i Taefelchen, 3 
4,142,-,-,-,7,7,- 

6478 DATA Butterkekse,5 
84,-, u u Bu ul nal Yanı 

6aBB” DATA Cracker,i St.,8, nen 
6498 DATA Croissant,i St.,155,649,-,*+,-, 


I Stueck,29, 


’ 
6588 DATA Datteln,o.K. 


1 Stueck, 29,84 


651g" DATA Dextropur, 5 


6528 DATA Eiswaffel,i St,,25,105,-,-,-,- 


i TL,18,75,-,- 


.. 
6539 uk Erdnuesse,59 9 geroestet, 329, 
544,-,t, u Fat Dal Sur 

6548 DATA Erdnuesse,19 K,,123,515,-,-,-, 
6559 DATA Fondue, i Port.Kaese m.Brot,129 
0,3823, -,+,+,-,-,- 

6568 DATA Fruchtgummi, 199,325,1369,-,-,+ 


6570 DATA Fruchbonbon, 59, 195,816, -,-,-,- 


4sög DATA Gummnibaeren, 190, 325,1360,-,- 


6598 DATA Haselnuesse, 100,694,2905,-,+,- 


6.608 DATA Haselnuesse, 19 K.,125,448,-,*, 


Lu | 
6618 DATA Karamellen, 109,448, 1842, -,-,*, 


6628 DATA Kartotfelchip,i Blaettchen 
„18,42,-,*,-,-,-,- 
6638 DATA Kartoffelchip, 45 I Beutel,i 
9,795, tn 
6648 DATA Kastanien, 190 geschaelt,21 


Streifen, 7,29, 


6668 DATA” Lebkuchen, i St.,208,837,-,-,*, 
ns 


6678 DATA Mandeln, 18 K,,88,335,-,+,-,-, 


„ 
6688 DATA Mars, 1 
atııcın 


669% DATA Marzipan, 190,457,1913,-,+,+,-, 


Riegel ,289,1172,-,- 


6798 DATA Milky Way,i Riegel, 130,544, -,- 


6718 DATA Mon Cherie,i St.,48,197,-,-,-, » 


| LISTINGS 


- .. .- 


4728 DATA Mozartkugeln, 100,534, 2235, -,-, ?839 DATA Jaegersauce,2 EL tischferti 
turn“ 3,8, 33, 574740797,” 
6730 DATA Negerkuss, I St.,60,251,-,-,*,- 7040 DATA Ketchup, I EL,41, 172, -, 37,5% 


y 


674% DATA Nougat, 199, 476, 1992, -.r,+, -." 
6758 DATA Nutella,109, 589, 2428, - tt,“ 


Rn: 
6768 DATA Nutella,! TL,30,126,-,*,+,-,% 


z0s0 DATA Lebertran,i EL,89,373,-,-,7, 5 


7068 DATA Marmelade, 109,271,1134,-,-, tn 


5978 DATA Mayonnaise, 25 80% N EL,19 
A,8l2,-,t,0,0,0,7 
677 % DATA Nuts,i Riegel,217,988,-,- >@89 DATA Mayonnaise, 25 50% 1 EL,13 


t, 07,7 
6788 DATA Nuts,mini i Riegel,89,335,-, 


‚393% 
6798 DATA Paranuesse,5 K.,120,582,-,+,, 


6888 DATA Popkorn,45 


ut nl! Yagı Past! Ya! Yozd 


1 Beutel,219,879 
sl DATA Pralinen, $t.,80,335,-,7,+,% 


6828 DATA Rosinen, EL,38,126,-,-,",",% 


68308 DATA Salzgebaeck,i St.,5,21,-,",",” 


7,573, -,t, 
?890 DATA Mayonnaise, 199 


20-25%, 320,1 


349, - +, +45, - 


7188 DATA Mayonnaise, 25 


28-25% 1 EL 


80,335, 54,70 74%47 


7119 DATA 
7129 DATA 


- . 


7138 DATA 


... 
>10 DATA 


Del,i EL,83,347,-,#,-,-,7,- 
Paniernehl,i EL,48,167,-,-,t+,- 
Parmesan,i EL 39%,49,167,-,+ 


Semmelbroesel,i EL,35,146,-,-, 


Fe Ko iss DATA Tomatenketchup, 1 EL,41,172,-,- 
684% DATA Sonnenblumkerne, 199, 620, 2595, - tt 

ad Id Sud Di Ba 7169 DATA Vanillezucker, I Paeckchen, 
6858 DATA Schaschlik,i! Spiess, 200,83 39,163, -,-,*, 3%, = 


6868 DATA” Schokolade, 108, 5590,2386,-,-,*, 


6878 DATA Traubenzucker, 1! EL,40,167,-,- 


7178 DATA 


?189 DATA 


Lu | 
Zitronensaft, TL,1,9d, 5% 


eof 


+ 17” [1] 

6888 DATA Treets,i Tuete, 230,963, -,- BORSE | 
re 

68798 DATA Vivil,s Stueckchen, 19,42, - Verkaufe Gate Array (IC Top: Schickt Disk. 3 Zoll. 


- 2 0.0 . - 


116) zum Preis von 65 DM, 


» 931979159 
6999 REM X%K%* Gewuerze X%+ 


neu kostet er ca. 80 DM! 
Kühlblechversion — ohne 


Top: Und pro Disk 10 DM. 
Dafür erhaltet Ihr die Disk. 
voll zurück (keine Raubko- 


6918 DATA Backaroma,l! Flaeschchen, 15 Kühlbl. Carsten Kissel, Bahn- pien). Verk. Orig.-Tapes je 
63,495 Denen, Überherrn 1, 25 DM: Zoids, Wintersport, 
1573 ab 18 Uhr, Soccer 86, A. Jack, M. Bum- 
6928 DATA Backael,i Flaeschchen, 45,1 ae Ba Der Hyperpott, 5, Tex, 
Be tan at Me nn ee Michael Schlitt, Fasanenweg 
6936 DATA Backpulver, i Paeckchen, 16, Suche f. CPC: Trivia, Edos, 1,4459 Uelsen 
Pr Trivial Pursuit, Mathematu. _ --—--- 
Headline 464 auf Disk. Kunststoff-Leerschacthteln v. 
69748 DATA Barbecuesauce, I EL,25,195,-,- Außerdem Handbuch zu Pro- 3‘-Disk. (kleine Menge) v. 
ur, fi en eo Sk (ki Meer v. 
a a a ne te sche auch Software “Disk. (kleine Menge) v. 
6758 DATA Bier hefe, 19,34, 142, 7," 17107305 Prog.). Angebote: Thomas privat zu kaufen gesucht. 
6960 DATA Chilisauce,i EL,40,159,-,-,7,- Briegel, Piechlerstr. 4,8942 Nur schrift. Angebote an 
-- Ottobeuren Gerhard Riedel, Schwibbo- 
’ ’ 
CT u RE EEE gensplatz 2b, 8900 Augsburg 
6978 DATA Fleischextrakt,i TL,13,63,-, SccheBascngae a. Ann 
E27 ae Vest Yan Massenberechnungen Tief- Top-Software zu Niedrigst- 
6989 DATA French Dressing,!i EL,62,259, - bau, Ausschreibungen etc. f. preisen: Crime Tim e: Detek- 
REN CPC 6128. Franz Küpper, De 1. Super Quiz: Neues 
. Lupinenstr. 25, 5216 Nieder- !) Quiz. Murder!: Detektiv- 
6998 DATA Gelatine, Blatt,7,29,+,-, kassel spiel 2. IQ: für Inelligente. 
„un, Te — zZ Psycho: Psychologieprog. 
ae Akustikkoppler AK300, u.v.a. 1. Prog. 10,—, jedes 
7898 DATA Gewuerzgurken, 199,25,105,-,, CPC Term, Kabel für CPC weitere 5,— 11! AUOE-Club, 
“rg” 464: 295 DM. Verk. auch Heckenrosenstr. 12, 8000 
7818 DATA Grillsauce,i EL,I1,46,-,,","5 Software auf Kass. Detlef München 70, T. 089/7143378 
RE Kramer, Eichenstr. 17, 3549 (S. er Scheck, Bargeld, 
’ Volkmarsen Rechnung! 
79828 DATA Honig, 19 l TL,39,126,-,-,*, FR SE IE HERE SE TEUEERE RE SEEN ee SET IR ESTER SEEN EI 


EGGHEAD 


Esghead, der ‚„‚Eierkopf“, ist die Computerversion 

des mehr oder weniger bekannten Mastermind-Spieles. 
Der CPC übernimmt dabei die Rolle des Spielers, der 
die zu ratenden Kombinationen auswählt und bewer- 
tet. Besitzer eines Grünmonitors können dieses Kno- 
belspiel unbesorgt abtippen. Statt mit farbigen Zei- 
en wird hier mit verschiedenen Symbolen ge- 
arbeitet. 


PRPR 
OIOKHI 


Hinweise zum Abtippen 


Die Zeilen ab 9500 erzeugen ein Titelbild. Sie können 
sie durch eigene Zeilen ersetzen, wenn Sie sich das Ab- 
tippen ersparen wollen. Ehe Sie das Programm starten, 
sollte jedoch zur Sicherheit einmal abgespeichert wer- 
den. Eventuell auftretende Tippfehler lassen sich 

dann in dieser Kopie leichter beheben. 


Bedienung des Spieles 


Das Programm ist menügesteuert. Die einzelnen Menü- 
punkte werden mit dem Joystick (auf/ab) oder mit 
den Cursortasten angewählt. Die Wahl muß mit dem 
Feuerknopf oder der COPY-Taste bestätigt werden. 
Numerische Werte werden ebenfalls mit dem Joystick 
(rechts/links) oder den entsprechenden Cursortasten 
eingestellt. 


Die Spielregeln 


Ihr Computer ermittelt eine Kombination aus den 
rechts oben sichtbaren Symbolen. Diese Reihe hält der 
Computer geheim (die Reihe der Fragezeichen oben 
links). Sie müssen nun versuchen, diese Kombination 
zu erraten. Dazu wählen Sie mit dem Joystick (Cur- 
sortasten) Symbole aus der rechten oberen Reihe aus. 
Bestätigen Sie Ihre Wahl mit dem Feuerknopf (COPY). 
Wenn Sie eine Reihe komplett ausgewählt haben, gibt 
der CPC Hinweise, ob Ihr Vorschlag richtig oder 
falsch war. Dabei bedeuten: “—-——“ völlig falsch, ein 
hohles “T“-Zeichen heißt, daß ein vorgeschlagenes 
Symbol richtig erraten wurde, d.h., Lösungsvorschlag 
und Kombination stimmen an einer Stelle genau über- 
ein. Schließlich kennzeichnet ein ausgefülltes ““T““, 
daß Sie ein Symbol zwar richtig erraten konnten, es 
aber an der falschen Stelle positioniert haben. 

Sie können durch den Joystick (ab) oder der DEL- 
Taste die Wahl eines Zeichens rückgängig machen, so- 
lange ein Lösungsvorschlag noch nicht vollständig ist. 
Mit “Q‘“ können Sie das Spiel abbrechen und erfahren 
dann die richtige Kombination. 

Das Spiel haben Sie gewonnen, wenn Sie es innerhalb 
der vorgegebenen Anzahl von Versuchen schaffen, die 
Kombination zu erraten. Verbrauchte Zeit und diese 
Anzahl werden in einen Punktestand umgerechnet. 
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LISTINGS 


IE 2 2 2 0 2 0 2 0 5 2 0 0 2.2 2.2 2.0.0 2.20 0 2.2 6.0 2 2 2.0 2.002 

+ EGGHEAD 

’x VGN THOMAS NAUMANN + 

’+ FUER + 

SCHNEIDER AKTIV * 

+ CPC 464'664/6128 * 

EZ 2 2 2 2 2 2 2 2 2 2 2 2 5 22 2 2 2 2 2 2 2 2 2 2 2 2 2.2 2.2 2 2: 

@ ’Version 1,8 vom 19. 12. 86 

28 GCSUF FAQQ: Symbole det iiteren 
@ MODE L:INF 1,0 INK 2,0: INK 2,@: INK @, 

S:PEN I:PAFER M:BORDER Ai: DEFINT a-z7: 'Bil 

dschirm vorbereiten 

30 maxvers=19: sorten=8: laenge=4; versch=- 
l:maxsymb=6:hiscore=SQQ0: es=CHR$ (200) el 

$ze$:anykey$=CHR# 124) +"Weiter mit belieb 
iger Taste"+CHR$(24):’Antangswerte fest] 

egen 

50 DIM stein$(sorten) ,stapel (9), snl (9 :' 

Felder dimensionieren 

6A FOR i=d TO sorten:steinsli)=CHR&(124+ 
i#4) «CHRS(125+ 14) +CHRS(B) +CHRSE(B) +CHRS ( 
id) +CHRE(L26+ #4) +CHRECLZF+IR4) NEXT: ' st 

eins wird mit den Strings gefuellt, dıe 

die Spielsteine bilden 

?8 DATA START, Versuche, Anzanl Symbole,La 

enge der Reihe,Nur verschiedene Symb.,An 
leitung, Backup 

80 DATA & 

8 i=d 

180 READ as: IF as="&"THEN menueH=i-1 ELS 

E menueH$(i)=a$: i=i+r1:60T0 199: ’Das Haup 

tmenue ist erweiterungsfaehig, indem man 
in Zeile 69 neue Punkte aufnimmt und di 

e ON-Anweisung (Zeile 278) entsprechend 

erweitert, 

119 GOSUB 9599: Titelbild 

199 'Hauptmenue 

289 CLS:LOCATE 5,4:PRINT CHRS$(24); 
HEAD - vL.t"ICHRE(2a} 

219 FOR i=8 TO menueH:LOCATE 3,8+i%2:PRI 

NT menueH$(i):NEXT:GOSUB 3289: "UP zeigt 

die eingestellten Werte an 

229 wahl=g 

239 GOSUB 5208: ’Inverse Darstellung des 

gerade gewaehlten Menuepunktes 

299 GOSUB 5909 

259 IF el$=sCHRS(KBIOR eS=CHRS(KFA)THEN G 

OSUB 5109: wanl=eMAX(@,wahl-1):GOTO 239 

268 IF el$=CHRS(KA)OR e$=CHRS(KFI)THEN G 

OSUB 3199: wahl=MIN (menueh, wahl+1):60T0 2 

39 

278 IF e$=CHR&E(K5B)OR eS=sCHRS(KES)THEN 0 

N wahl+1 GOTO 590,1200, 1490, 1600, 1800,20 

20, 2390 

289 GOTO 249 

4993 ’Hauptprogramm 

Sg6 CLS 

51@ FOR i=1 TO laenge:LOCATE i%2-1,1:PRI 

NT steins(@) NEXT: "Fragezeichen orinten 

529 FOR iel TO maxsymb:LOCATE i*2+18,1:F 


EEE 
%& 


"EG6 
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RINT stein$(i):NEXT: ’Auswahlreihe 

539 IF NOT versch OR laenge>’maxsymb THEN 
FOR i=1 TO laenge:solti)=INT{RND*maxsym 

bI+1:NEXT:GOTO 369: ’Aufgabe ermitteln, w 
enn auch gleiche Symbole in der Loesung 
vorkommen duerten 

3423 FOR iei TO maxsymb:stapel (i)=i:NEXT: 
FOR i=1 TO maxsymb-L:t=INT(RND*(maxsymb- 
i))+tirlihsstapel(i)'stapelli)=stapel(t): 
stapel(t)sh:NEXT 

530 FOR i=s1 TO laenge:isol(i)sstapel(i):N 
EXT: "Aufgabe ermitteln, wenn nur verschi 
edene Symbole in der Loesung vorkommen d 
verfen 

569 versucheiicursposszlinextelem=i: loesu 
ngs=sSPACES(laenge):FOR i=1 TO laenge:MID 
$(loesung$, j, LI) =MIDSLSTRS (sol (i)),2,L) N 
EXT: vorschlags=STRING$(laenge, "d"):begin 
n'=TIME: 'Hauptschleifenbeginn 

579 GOSUB 3099 

589 GOSUB 300% 

59% IF eBsCcHRE(KFZ)OR eß=CHRS(B) THEN 605 

UB 3109: curspos=MAX(i,curspos-1):G0T0 37 

o 

689 IF eSscHRE(KFS)OR es=CHRS (KH) THEN GO 
SUB 3100: cursposeMIN (maxsymb, curspost+tl): 
GOTO 579 

619 IF e$=CHRE(KED)IOR eS=CHRE(KSBITHEN L 
OCATE nextelem%2-1,versuch*#2+1: PRINT ste 
in$(curspos):MIDstvorschlag$, nextelem, I) 
=MIDS(STR® (curspas) ,2,1)inextelemenextel 
em+l:IF nextelemzlaenge+i THEN versuchev 
ersuch+I!nextelem=1:G0T0 808 

629 IFtes=CHR6(127)0R e$=CHRE(KA))AND ne 
xtelem?l THEN MID®S(vorschlag®,nextelem, I 
)="d"inextelemenextelem-L:iLOCATE nextele 

m*t2-1,versuch*2+1:PRINT" "5CHRS(8) ;CHRS 
BI) SCHRSLIO)E" "GOTO 389: Delete 

639 IF el$u"a"THEN GOSUB 3399:L0CATE 1,2 
S:PRINT anykey$}:G0SUB 5009:60T0 200: "Qu 
it 

649 GOTO 80 

799 'Bewertung 

809 ripos=diriinh=ft! FOR iel TO laenge 
818 IF MID$(vorschlags, i,lL)=MIDs(loesung 

$,i,L)THEN riposeripos+1:G0T0 839 

829 IF INSTR(vorschlags, MID#(loesung®, I, 
1))>9 THEN riinheriinh+l 

839 NEXT: ’ripos: Richtiges Symbol an der 
richtigen Stelle - riinh! richtiges Sym 
bol an der falschen Stelle 

848 FOR is TO ripos:LOCATE laengek2+1+i 
‚ (versuch-L)#2+1:PRINT CHRS (282) : NEXT 

858 FOR i=eripos+i TO ripos+riinh:LOCATE 
laenge#2+1+1, (versuch-L)#2+1: PRINT CHRB( 

281): NEXT 

868 IF ripos=@ AND riinh=® THEN LOCATE 1 

aenget2+2, (versuch-1)#2+1:PRINT"---" 

878 IF ripos=laenge THEN gewonnen=-1:G0T 

0 1099 ELSE gewonnen=® 


LISTINGS 


8898 IF versuch-i=maxvers THEN 1998 ELSE 

GOTO 370 

998 "Auswertung 

18989 ende!=TIME:verbrzeit!=(ende!-beginn 
!)/389:L0CATE 21,7: PRINT"Versuche: "jvers 

uch-1:L0CATE 21,F:PRINT"Zeit: "I:PRIN 

T USING" HH4.# s"’jverbrzeit! 

18198 IF gewonnen THEN LOCATE 21,11: PRINT 
"Score: "jiscore=(maxvers-versuch+1)# 

29: score=score*(maxsymb+laenge) :score=AB 

S(versch-i)%score:PRINT score 

1829 LOCATE 21,13:PRINT"Hiscore: "jhisco 

re:IF score’hiscore THEN hiscoresscore:Ll 

OCATE 21,1S:PRINT"Neuer Hiscore!'!*" 

1838 IF gewonnen THEN LOCATE 1,25: PRINT" 

*%%* GEWONNEN K##"JELSE GOSUB 3389: LOCATE 
1,25: PRINT"#%*%* VERLOREN #%*"j 

1849 PRINT" --- nochmal: FIRE"5:GOSUB 59 

BB: IF es<>CHRE(KED)AND es >CHRS(KSB) THEN 
MODE 2:END 

1859 GOTO 298 

119% ’Versuchszahl 

128% LOCATE 38,18: PRINT CHRS(24) I: PRINT 

USING"## "jmaxversj: PRINT CHRS(24) j 

1218 GOSUB 3080 

1228 IF e®=CHRB(KF2)OR eS=CHRE (KB) THEN m 

axvers=MAX(3,maxvers-1):GOTO 129% 

1239 IF es=CHRS(KF3)OR eS=CHRS(K9A) THEN m 

axvers=MIN(12,maxvers+1L):GOTO 1290 

1249 LOCATE 39, 10:PRINT maxvers:G0OTO 259 
1399 'Symbolzahl 

19488 LOCATE 30, 12:PRINT CHRS(24) I: PRINT 

USING"## "jmaxsymb5j : PRINT CHRS$(24); 

1418 GOSUB 5090 

1428 IF eS=CHRS(KF2)OR es=CHRE(KB) THEN m 

axsymb=MAX (2 ,maxsymb-1):GOTO 1499 

1438 IF es=CHRE(KF3)OR e&=CHRS(K9A)THEN m 

axsymb=MIN(sorten,maxsymb+1):G0TO 1488 
1448 LOCATE 30,12:PRINT maxsymb:GOTO 259 
1598 'Laenge 

1688 LOCATE 38,14: PRINT CHRS(24) J: PRINT 

USING"## "Ilaenges:PRINT CHRS(24) } 

1619 GOSUB 5908 

1628 IF e$=CHRS(KF2)OR e$=CHRS(KB)THEN 1 

aenge=MAX (1, laenge-1):G0TO 169% 

1638 IF e®=CHRS(KF3)OR eS=CHRS(K9A)THEN 1 

aenge=MIN(9, laenge+1L):GOTO 1689 

1648 LOCATE 38, 14:PRINT laenge:GOTO 259 

’Verschiedenheit 

1888 versch=NOT versch:G0SUB 3200:G60T0 2 


"Anleitung 
2889 CLS 

2818 PRINT" 
2828 PRINT" 


EGGHEAD" 


2839 PRINT 

2849 PRINT"Ziel des Spieles ist es, die 
von Ihrem"; 

2859 PRINT"CPC zrmittelte Zeichenkombin 
ation, die"j 
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2868 PRINT"sich hinter den Fragezeichen 
verbirgt,"3 

2878 PRINT"zu erraten," 

288% PRINT 

2898 PRINT"Waehlen Sie dazu mit dem Joy 

stick oder"j 

2188 PRINT"den Cursortasten das en 


tsprechende"j 

Z211@ PRINT"Zeichen (wird rechts oben inv 

ers darge-"} 

2128 PRINT"stellt) und bestaetigen 
Ihre Wahl"; 

2138 PRINT"durch FIRE/COPY. Mit Joystic 

k <unten?/"; 

2148 PRINT"DEL koennen 

e Zeichen’; 

2158 PRINT"entfernen.” 

2168 PRINT 

2178 PRINT"Ihr CPC zeigt durch "ICHRS(2KG 

2);5" an, dass Sie das”j 

2180 PRINT"richtige Zeichen an die richt 
ige Stelle"j 

2198 PRINT"gesetzt haben. Ein "ICHRS(2B1 
)I" bedeutet, dass Sie"j 

2298 PRINT"ein getordertes Zeichen zw 

ar erraten”; 

2218 PRINT"haben, aber noch nicht wissen 
‚an welche" 

2228 PRINT"Stelle es gehoert." 

2239 PRINT anykeysj:GOSUB S208:G0T0 289 

2499 '’Backup 

2588 CLS:LOCATE 5,35: PRINT"BACKUP von EGG 

HEAD":LOCATE 3,18: PRINT"Diskette/Kassett 

e einlegen, ":LOCATE 3,12: PRINT"Taste dru 

ecken!" 

23519 GOSUB 3009 

2520 SPEED WRITE 1:SAVE"!egghead" 

2538 G0TO 208 

2998 "Cursor setzen 

3898 LOCATE 18+curspos*2, L:PRINT CHRS(24 
)jstein$tcurspos) SCHRS(24) |: RETURN 

3899 "Cursor loeschen s 

3198 LOCATE 18+curspos#2, 1:PRINT steins( 

ceurspos) :RETURN 

3198 ’Menueparameter 

32889 LOCATE 38,18:PRINT maxvers:!LOCATE 3 

8,12:PRINT maxsymb:LOCATE 39,14: PRINT la 

enge: LOCATE 38,16:IF versch THEN PRINT"j 

a "ELSE PRINT"nein" 

3218 RETURN 

3299 'Loesung darstellen 


sie 


Sie das letzt 


: 3300 PEN 2;FOR i=i TO laenge:LOCATE i*2- 


1,1: PRINT stein$(sol(i) ):!NEXT!PEN L:RETU 
RN 

4999 "Warten auf Taste 

s2280% MIDSies, 1,1) SCHRECZIN) :WHILE eSsCHR 
$(280):MIDs(e8, 1, 1)=INKEYS:!WEND:MID$(el$ 
„l,1I)=LOWERS(eS$) inr=ASC (e$) -48: IF els="j 
"OR el@=e"y"THEN ja=-i ELSE ja=d 

s2318 RETURN 


LISTINGS 


5098 ’Menuepunkt normal 


5198 LOCATE 
1) RETURN 


5,8+wahlx2: PRINT menuehs(wan 


3199 ’Menuepunkt invers 


5208 LOCATE 


S,8+wahl&#2: PRINT CHR®(24) me 


nueHhs (wahl) 5CHRS (24) } RETURN 
8999 'Symbole 


9808 SYMBOL 
9818 SYMBOL 
132,136 
9828 SYMBOL 
9039 SYMBOL 
255,0 

90848 SYMBOL 
9950 SYMBOL 
160, 168 
96 SYMBOL. 
9878 SYMBOL. 
235,0 

9988 SYMBOL 
989% SYMBOL 
144, 168 
9109 SYMBOL 
9119 SYMBOL. 
255,0 

9128 SYMBOL 
9132 SYMBOL 
139,129 
9148 SYMBOL 
9150 SYMBOL 
255,0 

9169 SYMBOL 
9178 SYMBOL 
129,191 
9188 SYMBOL 
9198 SYMBOL 
255,0 

9290 SYMBOL 
9210 SYMBOL 
149, 131 
9229 SYMBOL. 
[) 

9239 SYMBOL 
255,0 

9248 SYMBOL 
9258 SYMBOL 
158, 159 
9260 SYMBOL 
9278 SYMBOL 
255,0 

9288 SYMBOL 
9298 SYMBOL 
138,184 
9308 SYMBOL 
9310 SYMBOL 
255,0 

9320 SYMBOL 
9330 SYMBOL 
9340 SYMBOL 
9352 SYMBOL 


AFTER 123 
128,255, 128, 129,139, 130,132, 


129,254,2,2,190,130, 66,66, 34 
130,136,194,194,160, 191,128, 


131,34,18,18,10,259,2,254,0 
132,255,128,191,160, 160,160, 


133,254, 2,250,19,10,19,10,10 
134,160, 160,160, 160, 191,128, 


135, 19,19,10, 10,250, 2,254, 
136,255, 128,129, 130, 132,136, 


137,254, 2,2,130,66,34,18,10 
138,144, 136, 132,130, 129,128, 


139, 18,34, 66, 130,2, 2,254, 
149,255, 128,160, 144, 136, 132, 


141,234, 2,10,18,34, 66, 138,2 
142,130, 132,136, 144,160, 128, 


143, 130,66, 34,18, 10,2, 254,0 
144,255, 128,129, 129,129,129, 


1945,254,2,2,2,2,2,2,230 
196,129,129,129,129,129, 128, 


147,2,2,2 
N 


‚2,2,2,254,8 
148,253,128,131,148, 194,194, 


149,254,2,130,98,18,18,98, 13 
150,149,144,144,149,131,128, 


151,98,18,18,98,130,2, 254,9 
152,255,128,128,131,135, 138, 


153,254, 2, 226,154, 2,2,2, 138 
154,154, 140,135, 131,128, 128, 


155,66, 2,2, 154, 226, 2, 254,9 
156,255, 128, 129,145, 139,132, 


157,234,2,2,18,162,66, 162,58 
158,139,132,139,195,129,128, 


159, 162,66, 162,18, 2,2, 254,0 
201,0,124,68, 108,49, 48,56, 
202,0,124,124,124,56,56, 56,8 
203,0,0,16,16,84,56, 16,0 


936% SYMBOL 124,255,128,128,131,134,149, 
199,128 

9378 SYMBOL 125,234,2,2,194,98,59,59,226 
9388 SYMBOL 126,129,129,128,129,129,128, 
255,8 

939% SYMBOL 127,130,130,2,130,130,2,254, 
[.) 

948% RETURN 

9499 ’Titelbild 
9509 PLOT 3190,200,1:DRAW 310,180: DRAW 33 
2,180: DRAW 330, 200: DRAW 319,200: PLOT 319 
‚229: DRAW 330, 220: DRAW 330, 260: DRAW 350, 
260:DRAW 379,270: DRAW 380,290: DRAW 380,3 
18: DRAW 380,339: DRAW 370,339: DRAW 359,36 
8: DRAW 319,360 

951% DRAW 299,359: DRAW 288,330: DRAW 300, 
339: DRAW 310,349: DRAW 359,349: DRAW 369,3 
30: DRAW 360,290: DRAW 339, 288: DRAW 319,28 
8:DRAW 310,220: PLOT 130,360: DRAW 89, 360: 
DRAW 80,380: DRAW 139, 380: DRAW 139,310: DR 
AU 98,319 

95208 DRAW 90,330: DRAW 110,330: DRAW 118,3 
48:DRAW 98,340: DRAW 90,359: DRAW 130, 358: 
DRAW 130,360: PLOT 190,360:DRAW 160,369:D 
RAW 159,359: DRAW 150,310: DRAW 169,309: DR 
Aw 199, 300: DRAW 199,330: DRAW 170,339: DRA 
W 170,328 

9530 DRAW 180, 320:DRAW 189,310: DRAW 168, 
319: DRAW 169,359: DRAW 199,358: DRAW 199,3 
&B:PLOT 249,360: DRAW 219, 360: DRAW 299,35 
8: DRAW 208,310: DRAW 210,380: DRAW 249,300 
:DRAW 240,330: DRAW 220,330: DRAW 220,320: 
DRAW 230,328 

9549 DRAW 230, 319: DRAW 218,318: DRAW 210, 
359: DRAW 249,339: DRAW 249,368: PLOT 410,3 
6D: DRAW 419, 300: DRAW 420,300: DRAW 420,33 
9: DRAW 449,330: DRAW 449,309: DRAW 459,309 
:DRAW 450,360: DRAW 449, 360: DRAW 449,340: 
DRAW 428,348 

9559 DRAW 420, 360: DRAW 410,368: PLOT 469, 
361:DRAW S19,361:DRAW 319,351:DRAW 470,3 
SL:DRAW 470,341: DRAW 499,341: DRAW 499,33 
1:DRAW 470, 331:DRAW 470, 311:DRAW 19,311 
:DRAW 319,301: DRAW 469, 301:DRAW 469, 361: 
PLOT 320,391 

956% DRAW 520, 331:DRAW 340, 361:DRAW 339, 
361:DRAW 379, 331:DRAW 370, 381: DRAW 569,3 
BL:DRAW 569,321: DRAW 539,321: DRAW 330,38 
i:DRAW 328,301: PLOT 5390,331:DRAW 369,331 
:DRAW 359,351: DRAW 349, 351:DRAW 539, 331: 
PLOT 389,301 

9378 DRAW 389, 361:DRAW 609,361: DRAW 619, 
361:DRAW 629,351: DRAW 620, 311:DRAW 610,3 
BL:DRAW 380, 301:PLOT 599,311: DRAW 599,35 
I:DRAW 618,331: DRAW 619, 311:DRAW 599,311 
9589 LOCATE 15,18:PRINT CHRS(164) 1" by T 
urtle-Soft":LOCATE 15,208: PRINT"Dezember 
1986":LOCATE 8,25:PRINT anykeysj: INK 1,2 
4: INK 2,20: INK 3, 16:1INK 9,8:PEN 1: PAPER 
8: BORDER 6:G05UB 3089: RETURN 


LISTING 


LATEIN» VOKABELTRAINER 


Matthias Krämer hat uns mit dem Latein-Vokabeltrai- 
ner nicht nur ein ausgesprochen gutes Programm zu- 
kommen lassen, sondern auch gleich eine ausführliche 
Beschreibung dazu geliefert. Lediglich die Eingabe- 
hinweise mußten wir um unsere Tips ergänzen. Im 
Listing tauchten nämlich die von uns recht verhaßten 
Steuerzeichen auf. Unsere Umsetzung erfolgt nun in 
der Weise, daß wir innerhalb einer Klammer die Ta- 
stenkombination angeben, die an dieser Stelle zu drük- 
ken ist. Beispiel: Im Listing erscheint der Text 
“(CtrIX)“, so geben Sie bitte für diese 7 Zeichen 
gleichzeitig die Tasten Ctrl und X ein. Es erscheint 
dann auf dem Bildschirm ein X mit einem Querstrich 
am oberen und unteren Ende. Die Klammern die- 

nen zur Abgrenzung dieser Tastaturkombination 


ud un 
„* 


Delirant 
ıstis 
 Romani! : 
u re 


Sonst müssen Sie die fehlerhafte Zeile verbessern 
und das Programm erneut starten. Jetzt müssen Sie 
das Hauptprogramm eingeben und mit SAVE 
“LATEIN“ abspeichern. 

Nachdem Sie das Latein-Programm mit RUN“ LA- 
TEIN“ gestartet haben, geben Sie die gewünschte 
Lektion (1-50) ein. Nun erscheint das Hauptmenü 
auf dem Bildschirm, und Sie können einen der fol- 
genden Punkte anwählen: 


1. Vokabeln eingeben 


Zunächst gelangen Sie in ein kleines Untermenü, in 
welchem Sie die Wortart wählen können. Dies wird 
durch zweimaliges Drücken der entsprechenden Zah- 


Tee 1 SEE 


ser‘ 


und sind nicht einzugeben. Des weiteren gilt ein “*“ö 

für den senkrechten Strich, den Sie mit SHIFT und 
“Klammeraffen“ erzeugen, ein ““ä‘“ bedeutet “ecki- 

ge Klammer auf“ und “ü‘ heißt “eckige Klammer zu“. 
Soweit unsere Eingabehinweise, aber auch Programm- 
autor Matthias Krämer hat noch einiges zu bemer- 
ken, bevor er sein Programm schildert. 


EINGABEHINWEISE 


Geben Sie zuerst den Basiclader ein, der ein kleines 
Maschinenprogramm erstellt und starten Sie ihn mit 
“RUN“. Wenn alle Datazeilen richtig abgetippt wur- 
den, werden die Programme “PRINTER.BIN“ und 
“LATBILD.BIN“ auf Diskette abgespeichert. 


lentaste erreicht. Geben Sie erst das lateinische Wort, 
dann die Formen und Bedeutungen ein. Oberhalb des 
Eingabefensters steht die Anzahl der bisher eingege- 
benen Vokabeln. Mit Space kommen Sie in das 
Hauptmenü. Pro Lektion können maximal 100 Vo- 
kabeln eingegeben werden. 


2. Vokabeln abfragen 


Nachdem Sie sich den Bereich ausgesucht haben, aus 
welchem die Vokabeln abgefragt werden sollen, er- 
scheint links oben in dem Textfenster das lateinische 
Wort und Sie werden aufgefordert, die Formen und 


Bitte lesen Sie weiter auf Seite 58 
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LISTINGS 


III 


t 

2°’ LATEIN-VOKARELTRAINER * 
3 '%* VON * 
a '%* MATTHIAS KRAEMER % 
3. ’* FUER: * 
e '* SCHNEIDER AKTIV + 
7 .'% CPC 6694/6128 * 
8 ’%* BASICLADER * 
9 + 


IE 0 2 5 2 © 2 2 2 52 2 2 2 2 2 2 2 2 0 212 010 2020222 20.2 .2.2 
18 MEMORY 389929:MODE 2 
2@ RESTORE 40: adr 239599; FOR ze=40 TO 120 
STEF 1O: PRINT zeit!sumsd:iFOR a=sı TO I6!R 
EAD bytes:ibyte=VALL"K’+byteS) :sumzsum+by 
te:POKE adr,byteiadr=adr+ti:;NEXT a:READ c 
hk: IF chkC>sum THEN PRINT"Error":END 
38 PRINT’Ok."SNEXT zeisCLS 
49 DATA 00,00,00,20,020,00,00,00,00,00, 00 
‚20,09,00,00,00, @ 
sg DATA 01,068,01,08,91,08,01,0+,00,04, 20 
‚22,09,00,00,00, 58 
6@ DATA 01,08,91,98,01,08,01,098,01,908,01 
‚08,21,08,01,98, 72 
?@ DATA 00,00,00,00,00,20,00,04,01,04,01 
,28,01,08,01,08, 58 
89 DATA 91,08,91,98,01,08,01,04,01,04, 01 
‚28,01,08,01,08, 86 
94 DATA 81,08,91,08,01,08,01,08,04,09,00 
‚09,00,00,00,00, 65 
109 DATA 00,009,20,00,00,00,04,08,04,0+,0 
2,00,00,00,00,00, 69 
119 DATA 20, 00,00,00,00,00,0+,00,07,08,0 
1,28,01,98,91,98, 68 
120 DATA 01,08,21,08,01,08,04,08,04,08,0 
1,08,01,08,01,08, 109 
139 RESTORE 199: adr=40009: FOR ze=130 TO 
3198 STEP 10: PRINT zei:sumeß:FOR a=si TO 4 
Q:READ byte!bytesbyteti6:sumesum+byte:PÜO 
KE adr,byte:iadr=sadr+1:NEXT a:READ chki IF 
chkC>sum THEN PRINT*"Error":END 
1949 PRINT"OK.":NEXT zei PRINT 


‚7,0, 3,6,6,7,8,3,6,6,7, 
‚6,7 ‚0,0, 310 
168 DATA 0,0 
‚2,0,2,0,0 
‚0,2,0,0,- 
178 DATA 
‚5,9,1,6, 

f) 

TA 

2 


N 
6 


- 
ei 


‚6, s, 2, 
189 DA 
,6,6,6,6, 
,6,7,8, 
198 DATA 
‚2,0,0,0 
‚2,2,0,8 
2089 DATA 
,6,6,6,6, 
‚6,8, 0,9, 
218 DATA & 
1) 


annawzram 


’ 
’ 
’ 
’ 
’ 


‚2,2,9,6, 128 
229 DATA 2,9, 
,6,6,6,616,6, 
‚6,8,0,9, 345 
238 DATA 8,0, 


anpomnD 


n 
a 
Q 
oO 
> 
_ 
D> 
o@ 
& 


8 
6 
‚6,8,0,8, 34 
298 DATA 9,8 
‚8,0,2,0,0,0 
‚2,2,0,0, 12 
388 DATA 9,0% 
,6,6,6,6,6 
‚6,5,9,8, 
318 DATA © 
‚08,8,0,0,0 
‚9,0,2,0 
329 ’ 
334 'MC - PROGRAMM 
349 °’ 
359 RESTORE 389: sum=@: PRINT 3803} :FOR adr 
=39909 TO 39d62:READ bytesibyte=VAL.("’k"+ 
byte®) !sumssum+byte:POKE adr,byte:NEXT:R 
EAD chk: IF chkt>sum THEN PRINT"Error"‘EN 
D 
369 PRINT*auch Ok. ":PRINT:PRINT"Speicher 
n...":SAVE*printer",b, 39009, 63: SAVE"Latb 
ild"’,6, 39509, 1180: PRINT:PRINT:END 
378 ' 
380 DATA 01,A8,02,11,09,08,21,4C,9A,DD,2 
1,DE,C1,FD,21,3F,9C,FD,23,DD,23,DD,23,CD 
‚79,98,0B,78,B1,02,69,98,09,C5,ES,DD,ES, 
26,08,FD,4E,09,09,7E,23,DD,77,08,7E,DD,? 
7,81,23,D0D,19,D2,83,98,DD,Ei,E1,C1,C9, ? 
998 
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Mit Schneider akltiv 
sind Sie immer 
AKTIV! 


LISTINGS 


18 IHRHHRRHHHHHRRHRHHRRARHHRHHSHHAHEN 


15 ’%* LATEINVOKABELTRAINER * 
20 °’%* HAUPTPROGRAMM * 
253 '% VON MATTHIAS KRAEMER * 
3 '%* FUER * 
35 '%* SCHNEIDER AKTIV * 
2 ’% CPC 66494/6128 * 


45. HRHRHHHHRHHRRHHHRHBHHHHHHHBHRHEE 
38 MODE 1:PAPER 8:PEN 1:BORDER 3 

69 INK 8,3: INK 1,24: INK 2,13: 1NK 3,14: IF 
wnr?® THEN 188 ELSE CLEAR 

?@ IF HIMEN>38 THEN MEMORY 38:L0AD"prin 
ter.bin",39:LOAD"latbild.bin"ELSE POKE 3 
9798,&C9 

69 ENV 1,1, -1,1,1,1,15ENT 1,198,-5, 71ENV 
2, 1,-2,1,1,2,1 

85 vanz=e128 

98 DEFINT g:DIM qwart(vanz) ,agefr(vanz), 
afal (vanz) ‚wort®6(7,vanz),ben(2) 

188 WINDOWN1,1,40,1, 1: PAPERHL, 2: PENHL,®: 
WINDOWNZ, 1, 49, 25, 25: PAPERW2, 8: PENH2, I 
119 CLSH1:PRINTHL, TAB(13) "LATEIN-VOKABEL 
N"J:WINDOW 2,39,2,23: IF wnr)@ GOTO 320 
128 MOVE 98,29,3,0:DRAW 649,20: PRINT#2,CH 
R#(164)" by NOPEOK-Soft ’86"j 

138 REM Titelbild 

148 DATA m-18,30,r3,2,r2,1,r1,1,r3,2,r-1 
‚3,r-3,1 

159 DATA m-15,18,r1,8,r1,-1,r8,-2,r-1,-1 
‚r-l,d,r-1,1,r80,3,r-1,8,r-1,1,r8,2,r1,1, 
ri,2,ri,-1,r8,-2,-8,23,-7,26,-6,34,r-3,- 
i,r-1,-9,-15,18 

169 DATA m-9,34,r8,1,r3,4,r1,1,r2,1,r-1, 
I,r-1,-1,rd,-i,ri,-1,r4,2,r3,-1,r3,-3,r- 
5,8,r-9,-1 

178 DATA m-6,23,r1,-1,r4,2,r6,3,r1,1,r3, 
-7,r-2,8,r-1,-1,rd,-i1,ri,-1,r1,8,rl,1,ri 
sZ,ri,i,ri,d,r1l,-1,r2d,-I,rel,-1i,r-1,d,r- 
2,2,r-1,8,r-1,2,r-2,-2,r-1,28,r-1,-1,r=3, 
8,r-2,2,r2,1,r3,2,r5,8,r1,-2,p3.3,27 

188 DATA m7,31,r8,2,r-1,1 

198 DATA m7,33,r1,8,r1,-1,rd,-2,r-l,-I,r 
-1,8 

209 DATA m-1,25,r0,-1,r1,2,r1,1 

219 DATA m-2,34,r2,-2,r98,-1,r-1,0,r2,1 
228 DATA m4,33.3,r-2,-2,r1,98 

238 DATA n9, 31,73, 8,16, -2, 13, -3,r-2,-7 
248 DATA m28,27,r2,2,r8,2,r1,,r-2,2,r8, 
2,r1,8,r1,8.3,r1,-1 

259 DATA p28,33,r8,2,r2,8,r1,8,r1,1,rl,- 
i 

268 DATA p21,35.3,r2,2,r3,8,r1,-1,r0,3,r 
-3,8,rd,1,r1,1,r4,0,r8,-6,r-1,9,r0,-5,r- 
2,-2,r1,8,r8,-3,r2,-3,r8,-3,r-2,-3,r-2,8 
‚r-8,3,r-2,3,r0.35,-8,r1,1 

278 DATA rd, -1,22,7,r3,-11,r8,-3,r-2,-7, 
14,-28,r9,-2,r1,-1,r8,-6,r-1,-1,r2,-2,r3 
‚„1,r2,8,r3,5,r1,0,r6,3,r4,-4,r8,-4,r-6,- 
7,r-13,-3,r-2,9,r-2,2,r0,2,r7,7 

288 DATA pl2,-46,r-2,3,r4,4 
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298 DATA pll,-42,r-2,7,r-3,4,-20,-38,r-4 
‚„A,r6ö,-i,ri,-l,r9,-3,r-1,-2,r-7,-8,r-5, 
-3,r-5,9,r-2,3,r8,2,r4,4,r9,3,r-4,9,r-1, 
1,r8,1,r3,35,r-35,35,r-3,6,r-1,7,r2,8,r9,10 
‚rS,6,r18,-4,r12,1,r16,3 

309 DATA m-26,-34,r3,3,m-24,-33,r2,3 

310 DATA p-19,38,r-18,-7,7-7,-9,r-4,-5;r 
-2,6,r8,-?,r1,-3,r7,-8 

328 DATA p-37,5,r-1,1,r@,l,rl,i,ri,® 

338 DATA p-1,11.5,r-1,4 

348 DATA p-32, -19,r@,11,r4,12,r8,11:'Str 
eiten 
3580 DATA 
369 DATA 


p-20,-30,r-2,8,r8,9,r4,11,r8,12 
p-18,-29,r-1,7,r1,6,r2,9,r5,17 
378 DATA p-1,-38,r2,7,r2,9,r1,7,r8,19 
389 DATA p?.5,-31,r4,7?,r2,6,r2,!1,r-1,18 
‚r-1,3,r-2,35 

398 DATA p-11,38,r-4,5,r2,1,r3,8,r-3,7,r 
-8,3,r-31,8,r-8,-4,r-6,-7,r-1,-3, 75,6, 8 
6,-2,r34,8,r6,3,r7,-3 

480 DATA ende 

a1 'Zeichnung 

420 MOVE %,2,1L:RESTORE 148:0RIGIN 319,18 
Qi a0="':bem" "xl ya amd 

4380 READ aß: a8=LOWER® (a8) : b4=LEFTE (EB, 1) 
sIF b6=e"e"THEN 459 ELSE READ y:IF VAL(a® 
I)C>B THEN DRAW VAL(aW)*a,y%ka ELSE x=VAL( 
MIDS(as,2)): IF b6="n"THEN MOVE xka,yta E 
LSE IF b#="r"THEN DRAWR x%ta,y*a ELSE IF 
b6="pn"THEN PLOT x*a,yta 

448 GOTO 439 

459 PEN 2:LOCATE 9,3:PRINT"Delirant":LOC 
ATE 19,4:PRINT"istis":LOCATE 9,5:PRINT"R 
omani!":WHILE INKEYS="":WEND 

468 PRINT CHRS{7):PEN L:LOCATE 31,3: PRIN 
T"Welche@":LOCATE 30,4: PRINT"Lektion?":LO 
CATE 33,5: INPUT"",lekt®:wnr=ei 

478 lekt=VAL(lekt@): IF lekt<i OR lekt>Sß 
GOTO 448 

489 dats="latvok"+iekts 

490 ' 

308 IHHHHHBRk MENUE IHHRAHHHHER 

319 ’ 

328 CLS:!WINDOW 2,39,5,23:WINDOWH1,3,38,3 
‚3: PAPER#1 , 3: PENHI,BICLSHLSLOCATENL, 2,1: 
PRINTHi, "Menue"s:LOCATERL,21, 1: PRINTHL, ® 
Lektion Nr. "Ilektj:WINDOWH3,2,39,2, 2: PAP 
ER#3, 90: PEN#3, L:WINDOWN4, 1,40, 24, 25: PAPER 
#4,0: PENH4,3:CL544: fenst4=1:G0SUB 1920 


539 WINDOWS, 2,39,5,5: PAPER#S,2:PENHS, I! 


CLS#3 

548 DATA Vokabeln eingeben, Vokabeln abtr 
agen, Vokabeln ansehen & aendern,Vokabel 
suchen,Lektion laden,Lektion speichern, N 
eue Lektion, Disk-Inhalt,Ende 

359 CLS#3:PRINTNH3, " (CTRLI) (CTRLI)Vokabel 
Nr."sjwnr-15)" Freie Bytes: "IFREU""I5:x= 
6:RESTORE S49:PEN 1:FOR a=i TO P:READ as 
sysakt2:LOCATE x,y:PRINT USING’#"jaJ :PRIN 
T") "Ja8: NEXT 


LISTINGS 


369 PAPER 3:PEN B:LOCATE x,2:PRINT"L":y= 
2 
578 yb=d:IF INKEY(9)=9 AND y>2 THEN yb=- 
2 ELSE IF INKEY(2)=9 AND y<18 THEN yb=2 
ELSE IF INKEY(47)=8 THEN 598 ELSE 570 
580 SOUND 1,301,1,12:L0CATE x,y:PAPER ®: 
PEN 1:PRINT USING’#*} (y/2)  yzy+yb:PAPER 
3:PEN B:LOCATE x,ysPRINT USING’#"5(y/2): 
FOR a=i TO 260: NEXT:GOTO 378 
598 PAPER 9: PEN Liysty/2):CLEAR INPUT! ae 
nder=8: LOCATER1,1,1:PRINT#I,SPACES(8)5:0 
N y 60T0 638,790,890,1919,1100,1220, 1320 
‚1399,14598 
689 ' 
619 'Eingeben 
628 ' 
639 IF vanz<wnr THEN PRINT CHRS(7):G0TO 
529 ELSE CLS:PEN 1:PRINT CHRS(24) 5 "WORTA 
RT"SCHRE (24) :PRINT:PRINT:PRINT" (CTRLI) (C 
TRLI)IL) Nomen"; PRINTIPRINT" (CTRLI) (CTRLI 
)2) Verb*:PRINT:PRINT* (CTRLI) (CTRLIIS) A 
djektiv,Konjunktion oder Adverb":PRINT:P 
RINT" Mit >SPACE{ zum Hauptmenue*:PRINT! 
PEN 2 
648 PRINT” Bitte waehlen Sie !"TCLSH3:PR 
INT#3, *(CTRLII CCTRLI) Vokabel Nr. "jwnr-1$ 
" Freie Bytes: "5FRE("")$: Fenst4=2: GOSUB 
1928 
658 qwart=Q:WHILE qwart<i OR qwart>3:qwa 
rt=VAL(INKEYS) :IF INKEY(47)e8 GOTO 329 E 
LSE WEND:LOCATE 3, (qwart#2) +2:PEN 3: PRIN 
T USING"#*"Iqwart} :PRINT")* 
668 CLEAR INPUT:a$="";WHILE a$s="":as=INK 
EYS:WEND: IF VAL(a$)<>qwart THEN PRINT ST 
RINGS(14,7):60T0 639 
6? PEN 1:5CLSHSTCLS:CALL 39: qwart (vinr)=g 
wart: INPUT#S, "Wort:" wort®(i,wnr): IF wor 
ts (l,wnr)=""GOTO 5290 ELSE CLS#S 
689 LOCATEHS, 2,1: PRINT#S,wort$(1,wnr) 5; ST 
RINGS(16-LEN(wortstl,wnr)),32)1:00SUB 185 
ad: GOSUB H9G:GOTO 639 
698°’ 
7088 ’Eingabe 
719 ’ 
728 CLS#4:PEN 1:IF qwart=i THEN LOCATE 1 
6, 7: INPUT"" ‚wort$(2,wnr):LOCATE 16,9: INP 
UT"* ,wort$(3,wnr) :LOCATE 16,13: INPUT"",w 
ort$(4,wnr):LOCATE 16,15: INPUT"*,wort$(5 
„unr):LOCATE 16,17: INPUT” ",wort®(6,wnr) 
738 IF qwart=2 THEN LOCATE 16,7: 1INPUT”*, 
wort$t2,wnr):LOCATE 16, 9: INPUT"" ‚wort$(3 
„unr)SLOCATE 16,11: INPUT** ,wort$(4,wnr): 
LOCATE 16, 13: INPUT"* ‚wort®(5,wnr) :LOCATE 
16,135: INPUT"" ‚wort$(6,Wwnr) :LOCATE 16,17 
s INPUT?" ‚worts(?,wnr) 
748 IF qwart=3 THEN LOCATE 16,13: INPUT”” 
‚wort$(2,wnr)sLOCATE 16,155 INPUT"",wort® 
(3,wnr)sLOCATE 16, 17: INPUT" " ‚wort$(4,wnr 
) A 


758 SOUND 1,239,19,13, 1:wnr=wnr+1:L.OCATE 
#1,1,1:PRINTRL,STRING$(15, 32) !RETURN 
769 °’ 

778 ’Abfragen 

780 ' 

798 IF wnr<2 THEN PRINT CHRS(7):G0TO 529 
ELSE tenst4=3:60SUB 1929:CLS:;ERASE agef 
r:DIM agefr (58) :fehler=d:richtig=0: G60SUB 
200: FOR a=9 TN bis-von:halt=d 

809 trnr=INT(RNDX(bIs-von+l))+von:IF gge 
frifrnr)=1 THEN 808 ELSE qwart=qwart(trn 
r) 

818 agetrifrnr)=1:CLS:CALL 39000: G0SUB 1 
469: GOSUB 1549: 60SUB 1578; IF halt GOTO 8 
29 ELSE NEXT 

829 CLS; PRINT:PRINT"OK! Ich habe alle Vo 
kabeln Abgefragt ":IF tehler=d THEN PRI 
NT"Du hast keinen Fehler gemacht":G0T0 8 
5@ ELSE prz=109-INT(190%(tehler/ (bis-von 
+L))):PRINT"Du hast"jprzi"% der Vokabeln 
ganusst" 

830 PRINT"Soll ich die nicht gewussten V 
okabeln":PRINT"noch einmal abfragen (J/N 
I?":CLEAR INPUT!aS=""SWHILE a8C>"J"AND a 

SCI"N”:a8=UPPERS(INKEYS) :WEND: IF aß="N"T 

HEN 859 ELSE #rarsiiggsfehler:tehler=d:r 
ichtig=e9:FOR a=d TO qq-i:WHILE gfal(frnr 
I=Q: frnrefrnr+l 

849 WEND: qwart=zqwart (#rnr) :CLS:CALL 3908 

9: G0SUB 1469: G0SUB 1549:60SUB 1579: IF ha 
lt GOTO 828 ELSE #rnr=#trnr+i:NEXT:GOTO 8 
20 

858 PRINT:PRINT" >Taste<":!CALL &BBQ6: 60T 

0.528 

869 ° 

870 'Ansehen 

888 ' 

890 IF wnr<2 THEN PRINT CHRS(7):G0T0 328 
ELSE tenst4=4:G0SUB 1929: be=1 

992 CLS: aender=d:CALL 39999: qwarteqwart ( 

be): GOSUB 1949 

919 LOCATE 19,4:PRINT USING" #H"IbC:LOCAT 

ERS,1L,1:PRINT#HS, SPACES(18) 5 :LOCATENS, 1,1 
:PRINT#S,wort6(1,bc)5:G008SUB 1809 

928 CLEAR INPUT!a®="":WHILE aß="":a8=INK 

EYS:WEND:eins=a®: SOUND 1,94,3, 10: IF as=" 
"THEN 970 

939 IF UPPERS(aS)<)"V"THEN 950 ELSE aend 

er=1:CLS#5: INPUTHS, "Wort: ",as: IF as="x"T 

HEN a$=worts(l,bc) 

949 worts(1,be)eas: CLS43:PRINTHS, a8] !LOC 

ATE 2,1P:PRINT SPACES(37)3:G0SUB 1809:50 

UND 1,239,19,13,1 

958 IF eins=CHR®(248)AND be+ißkwmnr THEN 

be=ebc+18 ELSE IF ein$=CHRS(241)AND bc-18 
>8 THEN be=be-18 ELSE IF eins=CHRS(242)A 

ND bce-1>8 THEN be=bc-1 ELSE IF ein®s=CHRS$ 
(243) AND be+1<wnr THEN be=be+1 ELSE 929 

968 GOTO 998 

978 SOUND 7,301,14,13,1:60T0 329 


LISTINGS 


988 ' 

999 "Vokabel suchen 

1099 ° 

1818 PEN 2:CLS:PRINT:PRINT" VOKABELSUCH 
"SPRINTSPRINT:PEN 1:PRINT" (L)ateinische 
s oder (Dieutsches Wort";PRINT TAB(1S)"g 
egeben?" 

1820 tenst4=5: G0SUB 1929:CLEAR INPUT: a$= 
"NSUHILE au<>"L"AND asl>”"D":as=UPPERSCIN 
KEY$) :WEND 

1838 PRINT:IF as="L"THEN INPUT"Lateinisc 
hes Wort:",b$:b=1 ELSE INPUT"Deutsches W 

ort:",b$:b=2 

1849 tenst4=6:G0SUB 1920: PRINT:PRINT"Ich 
suche. ..":FOR #rnr=i TO wnr-1:50UND 1,4 
78,1:FOR a=b TO 7:1F UPPERS(bS) <>UPPERS( 

worts(a,frnr))THEN NEXT a,frnr:PRINT:PEN 
3: PRINT"’"’bB"’"}" wurde nicht gefunden! 
":FOR a=i TO 13589: NEXT:GOTO 1960 

10858 CLS:CALL 39899: CL543: PRINTHS, wort 
1,trar)j:sqwart=awart (rar) sbe=strnr: G0SUB 
1549: G0SUB 1800:CALL &BBB6 

1868 CLS:PRINT"Soll ich noch eine Vokabe 
1 suchen(J/N)"SCLEAR INPUT!a®="":WHILE a 

BCY"J"AND aBl>"N":a8=UPPERS(INKEYS) :WEND 
IF a8="J"THEN 1918 ELSE 3528 

1878 ° 

1989 ’Lektion laden 

1999 * 

1198 CLSH4:CLS:PEN 2: PRINT"Lektion laden 
":PEN 1: PRINT"Richtig (J/N)?" 

1118 a6="":WHILE asc)"J"AND asc>"N":as=U 

PPERS(INKEYS) :WEND 

1128 IF a6="N"THEN 328 ELSEBUSER, 15:0N E 

RROR GOTO 1198 

1138 OPENIN dat$:wnr=1:PRINT"Ja":ON ERRO 

R 60T0 8:PRINT:PRINT"Ich lade... ":PRINT 
1148 FOR frar=i TO vanz: INPUTH9, qwart (fr 
nr):FOR a=si TO 7: INPUT#9 ,wortsla,frnr) 
1159 NEXT a:IF wortsti,frnr)<Cd)""THEN wnr 

swnr+i 

1169 NEXT frnr:CLOSEIN:PRINT"Lektion ist 
geladen. ":FOR a=i TO 1509: NEXT 

1178 ON ERROR GOTO 9: 5USER,9:G0T0 528 
1188 ’error 

1199 CLOSEIN:IF DERR{)>146 THEN PRINT"Err 

or in Zeile"sERL:ON ERROR GOTO 8:END 
1288 PRINT"Lektion Nr."jlekt5 "gibt es ni 

cht!":FOR a=si TO 1509: NEXT 

1218 RESUME 1170 

1220 ° 

1239 "Lektion speichern 

1249 

1259 CLSH4:CLS:PEN 2:PRINT"Lektion speic 

hern":PEN 1:PRINT"Wirklich {J/N)?"ias="" 
sWHILE asc>"J"AND as? "N": a$=UPPERS(INKE 

YS):WEND:IF a$="N"’THEN FOR a=i TO 1599:N 

EXT:GOTO 328 ELSE PRINT:PRINT 

1268 PRINT"Ich speichere. .„.":PRINT: USER 
‚iS:OPENOUT dats 


1278 FOR frnr=i TO vanz:WRITER9, qwart (fr 
nr):FOR a=1 TO ?7:WRITEHP ,wortßla,frnr):N 
EXT a,#frnr:CLOSEOUT:PRINT"Lektion ist ge 
speichert.":FOR a=i TO 1589: NEXT 

1289 GUSER,8:G0T0 328 

1290 ° 

1398 "Lektion aendern 

1319 ° 

1328 CLSH4:CLS:PEN 2:PRINT"Lektion aende 
rn":PRINT:PEN 1 

1338 PRINT"Vorsicht! Die Vokabeln im Spe 
icher ":PRINT"werden geloescht." 

1348 PRINT:PRINT"Lektion aendern (J/N)?" 
sag="":WHILE ast>"IJ"AND as>"N";as=UPPER 
SCINKEYS) :WEND: IF a8="N"GOTO 529 

1359 RUN 

1368 ° 

1378 'Disk-Inhalt 

1389 

1399 MODE 2:6USER,15:PEN L:PRINT TAB(2&) 
"Disketten-Inhaltsverzeichnis" 

199% SDIR,"latvok??.%":PRINT TAB(36)">Ta 
ste<":CALL &BBQ6 

1418 SöUSER,d:MODE 1:60T0 198 

1429 ° 

14389 ’Ende 

1449 ° 

1459 CLS#4:MODE 2:CALL &BCQ2:PEN 1:PRINT 
"Programm beendet!";PRINT:END 

1469 ' 

1479 ’Beschriftung(Bei ’Abtragen’) 

1489 

149% PEN 3:LOCATE 4,4: PRINT"RICHTIG":LOC 
ATE 14,4: PRINT USING"##"srichtig:LOCATE 
19,4: PRINT USING"##"ja:LOCATE 24,4: PRINT 
USING"##"jfehler:LOCATE 29,4: PRINT"FALS 
CH" 

1599 RETURN 

1519 ’ 

1528 "Beschriftung bei Eingabe(Wortart i 
n ’qwart’) 

1539 °’ 

1548 PEN 3: IF qwart=i OR qwart=4 THEN LO 
CATE 3,7:PRINT"GENITIV"SLOCATE 3,9: PRINT 
"GESCHLECHT"ELSE IF qwart=2 THEN LOCATE 
3, 7:PRINT"PERFEKT":LOCATE 3,9:PRINT"PART 
IZIP":LOCATE 3,11: PRINT"INFINITIV® 

1559 FOR bei TO 3:L0CATE 3, (b*2) +112PRIN 
T"BEDEUTUNG "JUSING’H"ID: NEXT 

1568 RETURN 

1578 ° 

1589 ’Vokabel Nr.’trnr’ abfragen 

1599 ° 

1608 ERASE ben:DIM ben (2): quart=zqwart (fr 
nr)iwtal=0: L0OCATE#S,2,L:PRINT#S,wort$(1, 

trnr) 5STRINGSCL6-LEN(wort$(1,trnr)),32)5 
1618 PEN 3:0N qwart GOSUB 1629,1649, 1669 
sgtall#rnr)ewfalistehler=stehler+nfalirich 
tigerichtig+rti-wfal):FOR b=1 TO 989: NEXT 
:RETURN 


LISTINGS 


1629 'Nomen abfragen 

1639 eb=4:b=2: ,=7:60SUB 1680: b=3:y=9:60S 
UB 1680: b=4:y=13:60SUB 1689:b=3: y=15:60$ 
UB 1689: b=6: y=17:G0SUB 1689: RETURN 

1649 'Verb abfragen 


1659 eb=$;6=2:y27:G60SUB 1680: b=3: eb 
UB 1880: b=4: y=11:60SUB 1689: b=N: y=13:605S 
UB 1689:b=6: y=15:60SUB 1680:b=7: y=17:608S 


UB 1689: RETURN 

16689 'Adverb abtragen 

1670 eb=2:b=2! y=13:60SUB 1688:b=3: y,=15:6 

OSUB 1680:b=4:y=17:60SUB 1680: RETURN 
1688 ’Eingabe 
169% PEN 1:LOCATE 16,y:INPUT*",88: ag=UPP 

ERS (a$) ıb8=UPPERS (wort$(b, frnr)): IF as=" 

S"THEN halt=l:RETURN ELSE IF y>li THEN 6 

OSUB 1730 ELSE IF as=bSTHEN qtal=d ELSE 

gfalsiiwtal=i 

1788 IF atal=d THEN LOCATE 4,4:PEN 2:PRI 

NT"RICHTIG":SOUND 1,506, -20,13,1,1: FOR c 

=1 TO 489: NEXT:LOCATE 4,4: PEN 3: PRINT"RI 

CHTIG":G0OTO 1728 ELSE FOR b=1 TO 3:L0OCAT 

E 29,4:PEN 2: PRINT"FALSCH”:LOCATE 29,4: 

OR c=i TO 99: NEXT:PEN 3:PRINT"FALSCH" 
1719 SOUND 1,129, 108: NEXT D:PEN 2:LOCATE 
16,y:IF y>ll THEN 1739 ELSE PRINT STRING 

$(21,32):LOCATE 16,y:PRINT b$ 

1728 RETURN 
1738 FOR c=8 TO 2:IF ben(c)=d AND ag=LıPP 

ERS (wort®(eb+c,frnr))THEN gfal=sdiben(c)= 
I ELSE NEXT: gtal=I:wtal=i 
1748 RETURN a 

1758 FOR c=9 TO 2:1F bentc)=8 THEN h6=UP 

PER$(wort$leb+c,frnr))iben(ce)=1: PRINT ST 

RING®S(21,32):L0OCATE 16,y:PRINT b$ELSE NE 

XT:PRINT"Error ";END 
1760 GOTO 1728 
1779 ' 

1788 'Vokabel ausgeben (wieder aus qwart) 

1799 °’ 

18088 PEN 1:IF qwart=1 THEN a=2: y=7:60SUB 
1850: a=3:y=9:G0SUB 1859 ELSE IF qwart=2 
THEN a=s2:y=7:G60SUB 1859: a=3: y=9:G60SUB 1 

850: a=4:y=11:60SUB 1859 ELSE a=l 

1819 yzllıbzarl!ceb+2:FOR a=sb TO ciy=y+2 

:G0SUB 1859: NEXT 

1829 RETURN 

1839 ° 
184% "Eine Form printen 

1850 IF aender=d THEN LOCATE 16, y: PRINT 

wort$(a,bc) RETURN 

186% "Verbesserung 

1878 LOCATE 16,y:!PRINT SPACESLZL)SLOCATE 
1&,y:INPUT"" a8: IF as<>"’*"THEN wort$(a, 

be)=a$ElSE LOCATE 16,y:!PRINT wort$(a,bc) 

1880 RETURN 

18908 ’ 

1999 ’Into-Fenster beschreiben 

1710’ 

1929 SOUND 1,239, -15,190,2:CL544:FOR fen= 


1 TO 188:NEXTICLSH4:RESTORE 1949:FOR ten 

=1 TO tenst4:READ a$: NEXT: IF tenst4=4 TH 

EN 1938 ELSE PRINT#4,a%; :RETIURN 

1934 agzas+CcHRE(243)+" = 1,Vok. vor 
"+CHRS (249) +” = 1@.Vok. vor":PRINTH4,a 

8}: RETURN 


1949 DATA " Auswahl ! Cursortasten + 

>SPACE<" 

1959 DATA " Auswahl * 2 * Zahl oder 
SPACE" 

1969 DATA " »St + YENTER{ = Abbruch” 

1979 DATA " »VX = Verbessern >»SPAC 

E{ = Stop 5 

1988 DATA " >L‘ oder DI" 

1999 DATA " 


208808 PEN 2:PRINT" ABFRAGEN":PRINT:PEN 1: 
INPUT"Von Vokabel:",von:INPUT"’Bis Vokabe 
1:°,bis:CLS:IF bis<von OR von=@ OR bis>w 
nr-1 THEN G0T0 2098 ELSE RETURN 


VOKABEL-TRAINER 


Fortsetzung von Seite 53 


Rechtes Feld: Zeigt die Anzahl der nicht gewußten 
Vokabeln. 

Wenn entweder für eine Form ein “*S“ eingegeben 
wurde oder wenn alle Vokabeln aus dem gewählten 
Bereich abgefragt wurden, wird Ihr Lernerfolg pro- 
zentual ausgegeben und Sie werden gefragt, ob die 
nicht gewußten Vokabeln noch einmal abgefragt 
werden sollen. Wenn nicht, dann kehrt das Programm 
in das Hauptmenü zurück. 


3. Vokabeln ansehen und ändern 


Sie haben hier die Möglichkeit, sich alle Vokabeln in 

Ruhe anzusehen. Mit den Cursortasten können Sie in 

der Lektion herumblättern. Dabei haben die Tasten 

folgende Bedeutung: 

Cursor rechts: Blättert eine Vokabel vor 

Cursor links: Blättert eine Vokabel zurück 

Cursor hoch: Blättert 10 Vokabeln vor 

Cursor runter: Blättert 10 Vokabeln zurück 

Leertaste: Rückkehr in das Hauptmenü 

Taste “V“: Aktuelle Vokabel wird zum Verbes- 
sern freigegeben. 

Verbessert man eine Vokabel, dann müssen alle For- 

men der Reihenfolge nach neu eingegeben werden. 

Wenn eine Form nicht verbessert werden soll, geben 

Sie einfach ““*“, gefolgt von ENTER, ein. Dann wird 

die alte Form wieder übernommen. 

Nach dem Verbessern können Sie sich die Vokabel 

weiter ansehen. 


4. Vokabel suchen 


Teilen Sie dem Programm mit, ob Sie das deutsche 
oder lateinische Wort kennen und geben Sie dieses 
dann ein. Nun werden alle Vokabeln durchsucht. 
Wenn die Suche erfolgreich war, werden alle Formen 
wie üblich ausgegeben und das Programm wartet auf 
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einen Tastendruck. Sie können jetzt erneut eine Vo- 
kabel suchen oder auch in das Hauptmenü zurück- N P Nu KEL 
h 


kehren. 

Die Spielidee ist eine gelungene Abwandlung der 
5. Lektion laden „Line‘*Spiele, aber die grafische Gestaltung des Spiel- 
verlaufes hat uns besonders gefallen. Es geht im Grun- 
de genommen nur darum, ein Feld zu verkleinern, in 
dem der CPC mit Draw-Linien einen galaktischen 
Nebel zeichnet. Dabei entsteht fast ein dreidimensio- 
naler Eindruck und die Besitzer eines Farbmonitores 
können sich besonders auf das bunte Spektakel freuen. 
6. Lekti ich Das wäre in einfachen Worten der Spielverlauf, wenn 
a Lektionspeiehen nicht Klaus Wörndle für das „Raumschiff Garfunkel“ 
Alle Vokabeln aus dem Speicher des CPC werden auf | eine dramatische Vorgeschichte geliefert hätte: 
Diskette übertragen. Sollte sich die betreffende Datei | Sie sind Kapitän des ultramodernen Raumgleiters 
schon auf dem Datenträger befinden, so wird sie über- | ‚‚Garfunkel“. Ihre Mannschaft befindet sich in einer 


Hierbei müssen Sie beachten, daß alle Vokabeln, die 
sich im Speicher befinden, durch diese Option ge- 
löscht werden. 

Deshalb wird sicherheitshalber noch einmal gefragt, 
ob die Lektion wirklich geladen werden soll. 


schrieben. Aus diesem Grund werden Sie auch beim gefährlichen Situation. Der Energiehaushalt Ihres _ 
Sichern der Daten mit einer erneuten Abfrage aufge- Raumschiffes kann nicht mehr durch Sonnenenergie 
halten. 


7. Neue Lektion 


Auch dieser Menüpunkt ist nicht ungefährlich, weil 
natürlich alle Vokabeln gelöscht werden. Das Pro- 
gramm wird daraufhin ab Zeile 10 neu gestartet. 


8. Disketten-Inhalt 


Wenn Sie diesen Punkt gewählt haben, werden die 
Dateien von allen bisher gespeicherten Lektionen auf- 
gelistet. 

Diese Dateien befinden sich auf USER 15 und haben 
den Namen “LATVOK“ mit einer zugehörigen 
Kennnummer. .. | 

Ob Sie ein Wort groß oder klein schreiben und in wel- 
cher Reihenfolge Sie die Bedeutung eingeben, spielt 
dabei keine Rolle. 

Wurde eine falsche Form eingegeben, dann wird sie 
verbessert und die Vokabel wird Ihnen als Fehler an- 
gerechnet. In der obersten Zeile der Eingabefläche 
sehen Sie quadratische Felder mit folgenden 


. 
f 


Bedeutungen: . aufrecht erhalten werden. Ihre einzige Rettung sind 
Linkes Feld: Hier steht die Anzahl der gewußten Energienebel, die durch das All rasen. 

Vokabeln. Mit der Hilfe eines „Teleskopstrahlenkanals“ sind Sie 
Mittleres Feld: Anzahl aller bisher abgefragten in der Lage, einzelne Energiefelder in das Zentrum 
Vokabeln. Ihres Raumgleiters einzuleiten. Jedoch Achtung, die 
9: Pradamineride er ist nicht so einfach! 

. in Kontakt mit gerade entstehenden Energienebeln 
Um keinen ungewollten Datenverlust zu erleiden, ver- f Mit einer der vier ‚„Teleskopstrahlenkanalwänden“ 
lassen Sie den Vokabeltrainer bitte immer nur über geht auf Kosten der Reserveeinheit, von der Sie nur 
diese Option. Wenn Sie das Programm entweder durch | 60 Stück (Time) zur Verfügung haben. Jeder Kon-. 
zweimaliges Drücken der ESC-Taste oder durch den takt mit einem Energiefeld kostet 10 Reserveeinhei- 
Menüpunkt Nummer 9 verlassen haben, können Sie ten. Einen Energieaufschub erreichen Sie dagegen, 
immer noch durch den Direktbefehl GÖTO 10 in wenn Sie die erforderlichen ‚Ladeenergieeinheiten“ 
das Hauptmenü gelangen, ohne irgendwelche Daten (400) innerhalb des Zeitlimits erreicht haben. Insge- 
zu verlieren: ? samt haben Sie drei Versuche, den Energievorrat zu 

vergrößern. j . 
Sylen gr es an die ee ohne Kon- 
= takt mit den ‚Teleskopstrahlenkanalwänden“ zu spei- 
Nutzen sie chern, so erhalten Sie Bonus-Energieeinheiten. Dazu 


ist jedoch eine gewisse Spielpraxis erforderlich. Die 


unseren Steuerung erfolgt übrigens über Cursortasten. 
Softbox Service! |WÖRTER SCHIEBEN 


Vielleicht kennen Sie alle die „Verschiebefix“-Spiele, 


Coupon auf Seite 73 die lange Zeit sehr beliebt waren, bevor der Rubik- 


Bitte lesen Sie weiter auf Seite 64 
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LISTINGS 


Pe 3 2 512 0 5 2 22.2 2 26 2 2 2 212 212 212 0 2.2 2 2.2 2 22 2223 
En GARFUNKEL % 
3 '’% VON * 
a °’% KLAUS WOERNDLE * 
3.’ FUER * 
6 ’%* SCHNEIDER AKTIV * 
>».’% CPC 464/664/6128 * 


8 HRHHBRHRERBHHRHHRRRRHRRRRRRRRHREHER 
18 GOSUB 10888 

29 MODE @: INK 9,0: BORDER 1,13: INK 2,16: 1 
NK 3,6,0 

69 %=5:xmdi feld: gn630: h=33l 

78 WHILE ee%ig 

80 eekmenktxifstftriigeg-xiheh-x 

98 PEN 2: MOVE ae%,f:DRAW 9, f,1:DRAW 9, h 
‚2:DRAW ee%,h,1:DRAW ee%,f,2 

108 SOUND 129,9%2,10,5,0,0,9: SOUND 139, h 
%3,190,5,0,0,0 

119 WEND 

120 a8="GARFUNKEL " 

139 LOCATE 5,9 

148 FOR Vei TO LENtAS) NEXT 

159 LOCATE 7,v%1.4 

168 FOR V=l TO LENtAB) SOUND 1932,9,1,15, 
8,0,31 

163 PEN 3:PRINT MIDS(AB,V, 1} 

ı8@ FOR Bei TO 50: NEXT:NEXT 

185 PEN 2 

199 zue"V TEL SPASS!" 

200 Z6=SPACES (19) +Z8+SPACES (25) 

21@ FOR I=1 TO 19 

228 LOCATE 1,2 

238 PRINT MIDS(Z8,1,19)3 

248 SOUND 3,1%*20,7 

258 FOR G=1 TO SO: NEXT 

268 NEXT 

27@ FOR u=si TO 1889: NEXT 

300 CLS 

319 z$="SPIELANLEITUNG !* 

320 26=5PACES (19) +Z8+SPACES (25) 

330 FOR Ist TO 18 

348 LOCATE 1,3 

359 PRINT MIDS(Z6,1,19)3$ 

368 SOUND 1,3500-143,19,7 

378 FOR G=1 TO 30: NEXT 

389 NEXT 

398 LOCATE 4,6:PRINT"EINGABE UEBER" 

395 LOCATE 3,7: PRINT"CURSORFELD" 

376 PEN 3 

488 LOCATE 19,19: PRINT CHRB(241) 

419 LOCATE 9,11:PRINT CHRB(243) 

428 LOCATE 18,12: PRINT CHRS(249) 

438 LOCATE i1,11:PRINT CHRB(242) 

432 PEN 2 

435 LOCATE 2,13:PRINT"SPIELSTUFE WAEHLEN 
"SLOCATE 3, 17: PRINT"SPIELSTUFE 1/2/3" 
448 LOCATE 1,29: PRINT"TASTE 1,2,0.3 DRUE 
CKEN !" 

442 a8=1INKEYS 

443 INPUT AM:CALL &BBC6& 


444 IF a8="i" THEN w%=3 ELSE IF ase"2" T 
HEN w%=2 ELSE IF a9="3" THEN w%=1 ELSE 6 
oT0 442 

460 GOSUB 698 

478 WHILE leben:G0OSUB 600 


. 475 WHILE #11%)2 AND TIMEmM)B:GOSUB 510: W 


460 GOSUB 3990: WEND 

485 GOSUB 4ARR: RUN 

598 TIMEm=TIMEm-1:LOCATE 39,8:PRINT TIME 

mp’"r:IF TIMEM{1O THEN PRINT CHRS(7) 

323 RETURN 

318 FOR 1i%=9 TO dI%:jo%=(ii%+l) MOD n% 

S15 rr%ew% AND NOT INKEY!ErFISFIIA=FIIN- Fr 
r%:e%meh+trr%:MOVE e%,t%: IF rr% THEN DRAW 
e%,h%, 11SOUND 132,59, 2,5,0,8,8 

328 rr%=w% AND NOT INKEYItOtI: FI 1%=F11%- 

rr%:f%ef%trr%: MOVE e%, FR: IF rr% THEN DRA 

W 9%, 4%, 1:SOUND 132,35,2,5,98,20,08 

325 rr%=w% AND NOT INKEY(EIISFILA=FIIN-r 
r%Ig%=g%-rr%:MOVE 9%, h%i IF rr% THEN DRA 

Wg%, 7%, 1:SOUND 132,69,2,5,2,2,8 

338 rr%ew% AND NOT INKEY(tU) FH 11%ef11%-r 
r%:h%eh%-rr%:MOVE 9%, h%: IF rr% THEN DRAW 
@%,h%, 15SOUND 132,65, 2,35,0,0,8 

335 IF a%e% THEN aueh: s%=-a%: kY%=tr: 605 

UB 3998 

348 IF a%)9% THEN akeghi she-h: k%=t1ı 008 

UB 5808 

345 IF b%#% THEN bYmtYi tiert k%etot: GO 

SUB 39008 

3539 IF b%>h% THEN b%=hkithe-t%:k%mtu: 008 

UB 5900 

355 IF c%e% THEN cheekiuim-u%: k%etrı 608 
UB 3900 

368 IF c%)9% THEN cHegktukm-u%:k%=t1:008 
UB 39098 

365 IF d%#% THEN dYetYi v%m-v%:kietot:GO 
SUB 3998 

378 IF d%>h% THEN d%=h%ı v%m-v%:k%etu: 008 
UB 599% 

375 B3hmahts%:bRmbYHt Ric Knecht uf: dA=dKrV% 
388 MOVE a%,b%:DRAW c%,d% 

385 MOVE a%(j0%) ,b%(j0%) :DRAW c%(j0%) ,d% 
(j0%) ,2 

il TER NET N 14 IE ER DL.) III TERE TE I RT 
il) =d% 

395 NEXT 

396 LOCATE 16,2:PRINT FIIRH:INK 1,kK1W: IF 
FLL%C28 THEN PRINT CHRS(7) 

397 RETURN 

688 SPEED INK 3,3:BORDER ®& 

619 KIR=RNDILIHIBH+LEKZU=LIHRNDILI) LO: INK 
0,0:G0SUB 2908 

6380 trel:ti=8: TOt=2:tu=ß 

658 leben =3:FL%=420:1L=10908 

668 DIM aX(60) ,bALED) ,cht6D) ,AR(6D) 

678 ENV 1,125, -1,3:3ENT 1,9,1,1,9,-1,1,9, 
688 DEF FNr=RND (1) /2+8.5+P1/2%INT(RND(1) 


LISTINGS 


698 RETURN 
888 MODE I 
INK 1,9: INK 2,24: INK 3,6: PEN 1: BORDE 


8280 ORIGIN 9,0,0,600,0, 600: CL6 3 

839 FOR eo=1 TO 39 

848 MOVE 403+e0o,®0 

859 DRAW 495+e0,485-eo 

868 NEXT 

878 FOR h=1 TO 188 

8680 MOVE 459+h, 350 

899 DRAW 459+h, 333 

928 NEXT 

918 DRAW 359,50 

929 DRAW 459,50 

93% DRAW 550,81 

948 FÜR y=8 TO 30 

939 MOVE 359+y,50-y 

96B DRAW 550+y,350+y 

979 NEXT 

988 ORIGIN 9,0,0,490,0,4080:CLG 2 

998 ORIGIN 9,9,8,396,8,365:CL6 3 

1800 BORDER ®& 

1895 ORIGIN 0,9,20,390,13, 368:CLG 2 
1986 FOR n=1 TO 190: x=RND*3S9: yEeRND*352: 
PLOT x,y:NEXT 

1818 PEN 2:LOCATE 39, 6:PRINT"TIME” 

1829 LOCATE 6, 2:PRINT"ENERGIE” 

1839 LOCATE 30, 22:PRINT"SCORE" 

1835 LOCATE 38, 18:PRINT CHRS(292) :LOCATE 
32,18:PRINT CHRS(292) :LOCATE 34,18: PRIN 
T CHRS(282) :FOR k=5 TO 28 STEP 2:LOCATE 
36, k: PRINT CHRS(288+ (k- (k-L)) ) NEXT 
1048 1 1Ymt 1 Ki eadı FR=4: 4394: h%=364 
1945 LOCATE 29,24: PRINT SCj 

1859 LOCATE 38,12: PRINT"LEBEN”:LOCATE 31 


1968 FOR m=1i TO LEBEN: PRINT CHRS(227)5:N 


1879 aR=RNDILIKIN:DK=RND (1) *h% 

1889 c%=RND(1)#9%: d%=RND(1)*h% 

1898 a=FNr:s%eh1XC0OSta):tyn=eklASIN(a) 
1108 a=FNr:uRek1XC0Sta):v%=kltSIN(a) 
1118 FOR ii%=9 TO NW art iiW)=-1:6R ii) = 
1: HI R-L:dR ti) =-1: NEXT 

1128 top=®: TIMEm=69 

1139 KIR=SRNDILIHIQHLEKZR=LLHRND(L I KI6 
1148 INK 1,kKI%: INK 2,K2%: INK 3,RND(1)#S+ 
i 

1158 EVERY 59 GOSUB 580 

1160 SOUND 129,1609,-32999,4,9,9,9: SOUND 
139,1620, -32009,4,0,9,9 

1178 RETURN 

2000 IF n%=e6 THEN n%=ll ELSE n%e6:lF kl= 
16 THEN kl=24 ELSE kleld:f1%sH NH IEDEnR= 

6 

2092 dl%sn%-1 

2819 RETUFPN 

3089 REM 


61 


s219 p%=REMAIN(D) 

3020 p%=timemti0d: IF p%>d THEN GOSUB 358 
8 ELSE G0SUB 3898 

3830 LOCATE 29,24: PRINT sc} 

3049 IF sc>1 THEN PRINT CHRS(7)II: lebenel 
eben+i!1=21+10008 

3058 FOR y=d TO LOBD:NEXT 

3198 RETURN 

3508 WHILE e%Cg% 

3310 zehn Fat Kr Eh m hend -W% 
3528 MOVE eX%,F%: DRAW 9%, 1%, 15 DRAW 9%, h%: 
DRAW @%,h%: DRAW @%, #% 

3539 SOUND 129,9%%3,19,3,0,0,0: SOUND 139 
‚n%#3,10,5,0,0,8 

3349 WEND 

3559 LOCATE 9,11: PRINT"SCORE"P% 

3369 IF TOP=8 THEN LOCATE 7,14:PRINT"+ B 
ONUS"PX:P%=PX+P% 

3578 SC=SC+p%:G0SUB 2899 

3568 FÜR iX=d TO 3089: NEXT 

3599 RETURN 

380% leben=leben-i 

3818 FOR iI%=8 TO 10089 STEP 3:SOUND 129,i 
%,10,5,0,0,0:SOUND 139, 1%+20,10,5,9,28,0: 
NEXT 

3820 RETURN 

4808 REM 

4859 MODE L:CLS:BORDER 26 

4868 ENT 1,1080,2,2:ENV 1,19,%,3 

079 ENV 2,127,30,1,127,39,1 

4198 FOR I=5 TO 18:L0CATE 1,I:PRINT SPAC 
ES (35) :NEXT 

4128 ATS="SPIELENDE” 

aL38 APie277-LEN{atS) #16: INK 2,0 

4148 LOCATE 1,13: PEN 2:PRINT ATSS:!PRINT 
CHRB(32):PEN 1 

4159 ap2=apl!ap3e28P: ap4=204& 

4168 FOR i=i TO 7:apS=9d:SOUND 1,180, 189, 
18,2,2:FOR j=1 TO LEN(atS)*8 

4179 IF TEST(apS,ap4)=2 THEN PLOT apl,ap 
3,1:PLOT api,ap3-2:PLOT apl+?2,ap3:PLOT a 
pi+r2,ap3-3 : 
4188 api=api+rd:iap5ears+2: NEXT 

4199 ap3wap3-4:ap4=apd-2: api=ap?2!NEXT 
2208 LOCATE 12, 1S:PRINT"IHRE PUNKTE!" 
4218 LOCATE 15,20: PRINT SC 

4228 ENV 1,15, -1,$ 


4236 SOUND 1,478,32,15,1:SOUND 1,358, 32, 
Bu SOUND 1,388, 16, 1%, 1:S0UND 1,319, 16, 
1 SOUND 1,284,32,18,1:50LUND 1,358, 32, 
nr SOUND 1,239,64,15,1:50UND 1,284,48, 
en SOUND 1,284, 16,18, 1:S0LND 1,268, 32, 
Er SOUND 1,235, 16, 1%,1:SQUND 1,268, 16, 
es SOUND 1,284,16, 15, 1:50UND 1,268,15, 39 


LISTINGS 


4309 SOUND 1,239,32,15,1550UND 1,319,16, 


4310 SOUND 1,358, 16,15, 1:S0UND 1,319, 16, 


4320 SOUND 1,284,16,15,1:50UND 1,319, 32, 


4338 SOUND 1,478,32,18,1:SOUND 1,358, 32, 


4349 SOUND 1,358, 16,15,1:SOUND 1,319,16, 


4359 SOUND 1,284,32,15,1:5SOUND 1,398, 32, 


4360 SOUND 1,239,64,15,1:50UND 1,284,48, 


4379 SOUND 1,284,16,15,1:50UND 1,268, 16, 


4389 SOUND 1,239,16,15,1:50UND 1,284, 16, 


4399 SOUND 1,268,16,15,15SOUND 1,319,48, 


4488 SOUND 1,358, 16,18, 1:1SOUND 1,358, 96, 
4418 RETURN 

5009 SOUND 132, 2808,30,15,1,1,8 

IF INKEY(K%)=& THEN INK 1,k1%, 26:80 
UND 132,0,20,15,0,2, 1: TIMEm=TIMEn-10:top 
=( 

5298 RETURN 

10808 MODE 1:CLS:BORDER # 

11008 ENT 1,190,2,2:ENV 1,19,5,3 

12088 ENV 2,127,38,1,127,30,1 

13008 INK 0,24: INK L,1:INK 2,6: INK 3,9 
14080 PEN 2:PAPER 9 

15098 SYMBOL AFTER 199 

16080 SYMBOL 238,255, 128,128, 128,143, 143 
‚143,142 

17008 SYMBOL 231,255,0,0,0,249, 249, 249,5 
= 


18008 SYMBOL 
43 

19009 SYMBOL 233, 142,142, 142, 142,142,142 
‚142,142 

28000 SYMBOL 234,1,1,1,127,127,127,57,57 
21009 SYMBOL 235,193, 193,193, 249,249, 249 
‚193, 193 

22000 SYMBOL 236,142,143,143,143, 128,128 
‚128, 255 

23008 SYMBOL 237,37,249,249,249,2,0,0, 25 


232, 255,1,1,1,249, 249,249, 1 


24808 SYMBOL 238,193,193,193,193,1,1,1,2 


25000 agi®=CHR® (230) +CHRS(231) +CHRS (232) 
26009 a928=CHR® (233) +CHRS (234) +CHR® (235) 
27000 a93$=CHR® (236) +CHRS (237) +CHRS (238) 
28800 FOR i=21 TO I STEP -4:FOR j=2 TO 3 
8 STEP 4 

297028 LOCATE j,i:PRINT agis 

29108 LOCATE j,i+1:PRINT ag28 

29208 LOCATE j,i+2:PRINT ag3$ 


62 


29309 NEXT: NEXT 

29498 FOR i=1 TO 3:LOCATE 1,1:PRINT SPAC 
E& (36) :NEXT 

29499 LOCATE 14,2:PEN 3: PRINT" JANUAR 198 
6" 

29788 SOUND 1,100,199,7,1,1 

29898 FOR I=3 TO 28:L0CATE 1,1:PRINT SPA 
CES(36) : NEXT 

29999 ATS=E"KLAUS WOERNDLE" 

29918 AP1i=277-LEN(atS)#16: INK 2,24 

29928 LOCATE 1,13:PEN 2:PRINT at#j:PEN I 
29938 ap2=apl:ap3=289: ap4=206 

29948 FOR i=i TO 7:apS=0:50UND 1,190,150 
‚19,2,8: FOR j=1 TO LEN(at8#)%8 

29958 IF TEST(apS,ap4)=2 THEN PLOT api,a 
p3,1:PLOT api,ap3-2:PLOT api+2,ap3:PLOT 
api+2,ap3-3 

29955 apl=api+4: apS=apS+2: NEXT 

29969 ap3=ap3-4:ap4=ap4-2:apl=ap2: NEXT 
30089 LOCATE 1,13:PRINT SPACES(LEN(at®) ) 
312889 INK 2,6 

31858 PEN 3:D#="PRAESENTIERT DAS RAUMSCH 
IFF® 

31855 D6=SPACES (19) +DS+SPACES (25) 

31848 FOR BN=1 TO 28 

31978 LOCATE 39,12 

31875 PRINT MIDS(D®#, BN,27)} 

31089 SOUND 1,508-BN#3, 10,7 

31885 FOR HG=l TO 40: NEXT 

31298 NEXT 

31108 AAS(l)="4115900000090004 11000000000 
2910020000010" 

S1209 AAS(Z2)="100094115Q1A1DLOHALAWIALLI 
SQ1041941 15919" 

31399 AA®(3) =" 10000009 191I0A 101 LOLOO 
18142091001 019" 

31409 AABLA)="1O15Q411LOLANDLIODLEOLNLOD 
19110991 112019" 

31509 AAS(S)="1OB1ALOGLDLIANLODDLOHLALOR 
191350910009 18” 

316008 AABI6)="31120311191009L00031120190 
1919310311203" 

317288 WINDOW #1,1,98,17,24: PAPER #1,2:CL 
shi 

31888 FOR Alsi TO 6 

31988 FOR Alsi TO 48 

32888 IF MIDS(AAStAU),AI,L)="Q" THEN TA® 
(AU) =TABLAU) +CHRS (32) :G0T0 32509 

321908 IF MIDS(AABLAU),ATI,L)="1" THEN TA® 
(AU)=TABLAU) +CHRB(143):GOTO 32399 

32288 IF MIDS(AAS{AU),AI,L)="2" THEN TAS$ 
tAU)=TAB(AU) +CHRS(212):G0TO 32599 

32308 IF MIDS(AAS(AU) ,AI,L)="3" THEN TA® 
(AU)=TAB(AU) +CHRS(213):G0T0 32590 

32488 IF MIDSCAAS(AU),AI,L)="4" THEN TAS 
(AU)=TAS(AU) +CHRB(214) ELSE TASCAU)=TAßL 
AU) +CHRE (215) 

323889 NEXT:NEXT 

32688 LOCATE 1,24:PRINT STRINGB (4%, CHRE( 
128)) 


LISTINGS 


32788 PEN 1:FOR Aus6 TO 1 STEP-L!LOCATE 
1,AU+17: PRINT TAB(AU) NEXT 
32888 LOCATE 1,17:PRINT STRINGS(49, CHRS( 
128)) 

92858 FOR KLei TO 4808: NEXT: RETURN 


198 ° LLLLEITET TEN 
28 ’%* WOERTERSCHIEBEN * 
30 '%* VON ULI VOGEL * 
a °’% FUER % 
so’%+ SCHNEIDER AKTIV % 
68 ’%* CPC 464/664/6128 * 
70’ 


68 DIM stein®(?7,7) ,nort#(19) ,erla(3) 

995 'asa= DEFINITION DER WOERTER s=== 

188 FOR I=1 TO 19 

118 READ as 

128 worte(l)=o® 

138 NEXT 1 

148 DATA AMSTRAD, DRUCKER, BAHNHOF ‚PLATTEN 
„URKUNDE , ZEITUNG, ENGLAND, KANZLER, TELEFON 
» KONTAKT 

158 INK 0,0: BORDER 8:PAPER 9: INK 1,25: IN 
K 2,26: INK 3,19 

168 Lyal; Ixe| 

179 zueg=d 

188 rei 

199 pkte=d 

288 MODE 1 

21@ LOCATE 2,29: PRINT"- Woerterschieben 
- _ "SCHRB(164))" Ulrich Vogel" 

228 PEN 3:LOCATE 13,2:PRINT"Level waehle 
n !" 

239 PEN 2:FOR 1=5 TO 9 STEP 2 

249 erlat(1-3) /2)=228-((1-3)/2)%*20: LOCAT 

E 3,1:PRINT (1-3)/25°. Level = "jerlalt] 
-3)/2)5" Zuege erlaubt." 

258 NEXT 1 

258 PEN 1:LOCATE 13, 12:PRINT"Welcher Lev 

el ?" 

2780 I®=INKEYS:IF iSC)"1" AND I®C)"2" AND 
i8()"3”" THEN 27% 

268 IF i®="1" THEN lev=i 

299 IF i$e"2" THEN lev=2 

309 IF i9="3" THEN lev=3 

318 erla=serla(lev) 

3280 MODE 1 

33@ PEN 3:L0CATE 13, 2:PRINT"Steuerung: * 

349 PEN 2:LOCATE 18,5: PRINT"Stein "ICHRE 
(249) 5" (5)° 

350 LOCATE 18, 7:PRINT"’Stein "ICHRE(Z41)$ 
“ (2)" 

368 LOCATE 
“ (3) *® 

378 LOCATE 

y (vw. 


18, 9:PRINT"Stein "ICHRS(243) 35 


18,11: PRINT"Stein "JCHRE(242) 


63 


368 LOCATE 19,13: PRINT"Ueberpr. 
398 LOCATE 18,15: PRINT"Sucher an 
488 LGCATE 18,17: PRINT"Sucher aus 
418 PEN 1:LOCATE 13,20: PRINT"- 
IS=INKEYS: IF i®="" THEN 4208 
4308 MODE 1 

'sze= MATRIX ZEICHEN ==== 
438 FOR 1=64 TO 4980 STEP 48 

a6B PLOT 1,16, 1!DRAWR 9,334 

478 NEXT 1 

480 FOR I=16 TO 360 STEP 48 

498 PLOT 64,1:DRAWR 336,8 

598 NEXT I 

S12 FOR 1=356 TO 344 STEP 48:PLOT 422,1:D 
RAWR 162,8: DRAWR @,-32:DRAWR -162,9: DRAW 
R 8,32:NEXT 1:G0SUB S20:60T0 3569 
328 PEN 1:LOCATE 28, 14: PRINT"Runde: 
ING" H4"'Ir 

3380 LOCATE 28, 11:PRINT USING" HAAR" pktes 
PRINT” Pkt." 

549 LOCATE 38, 17: PRINT"Wort:" 

359 PEN 2:LOCATE 28,20: PRINT"-":PEN 1:P 
RINT wort$(r)$:PEN 2:PRINT "-":PEN 1:RET 
URN 

569 LOCATE 28,23: PRINT "Level: ":LOCATE 3 
7-1ev,23:PRINT STRINGS(lev,"I") 

578 PEN Z:LOCATE 6,2:PRINT"- ":PEN 3:PR 
INT "Woerterschieben'J:PEN 2:PRINT" -": 
PEN 3:PRINT’ Kontrolle’:PEN { 

589 GOSUB 599:G0T0 63% 

398 LOCATE 28,3:PRINT USING’ HHH"jzuegs :P 
RINT" Zuege” 

688 LOCATE 28, 8:PRINT"Noch: 
jerla 

618 IF erla=d THEN 1918 
6289 RETURN 

6380 PLOT 64, 169,2:DRAWR 336,9: DRAWR 9,48 
:DRAWR -336, 9: DRAWR 9, -48 

6949 'aumm DEFINITION DER BUCHSTABEN =aa= 
658 s=d:FOR d=7 TO I STEP -A 

669 uus+1:;FOR lei TO ? 

67% READ a 

688 LOCATE 1%3+3, 5*3+2: 

698 PRINT a®$ 

798 steins(1,8-d)=386 

718 NEXT I 

728 NEXT d 


(97* 
(1° 
(4)* 
Taste -" 


"US 


"NULSING’RAR" 


’ 
’ 
L 
798 LOCATE 1x% 
752 G0T0 788 
768 zuegezueg+tiierlaserla-1:60SUB 359% 
770 ’z=m= BEWEGUNGEN UND AUSSPRUNG zanz 
788 iS=INKEYS:IF i®C)"L”" AND IiSC’"2" AND 
I8C)"3" AND iBC)"S" AND iBC)"9" AND iX 
>"7" THEN 788 
798 IF is="7" THEN 1190 
608 IF i@="9" THEN 1018 
819 IF is="i" THEN 858 


LISTING 


820 IF Is="3" THEN 89% 

830 IF is="5" THEN 938 

848 IF it="2" THEN 979 

638 IF Ix=7 THEN 788 

668 SOUND 1,168, 10 

879 LOCATE 1x%3+3,1y%3+2: PRINT steins(1x 
+1,1y) 

860 steins(ix,iIy)=ssteinstix+L,iy)istein® 
(Ix+i,Iy)="®5LOCATE 1x%3+6, 1y%3+2: PRINT 
""lxelx+1:C0T0 760 

898 IF Ix=i THEN 780 

999 SOUND 1,169, 1% 

918 LOCATE 1x%3+3,1y*3+2: PRINT steinstix 
-1,1y) 

929 steins(ix,Iy)=steinstix-i1,1Iy)istein® 
(1x-1,1y)=""3LOCATE 1x%3, 1y%3+2: PRINT " 
";ixmlx-1:60T0 768 

938 IF I\y=? THEN 780 

948 SOUND 1,168, 10 

95% LOCATE 1x%3+3,1y#3+2: PRINT steins(Ix 
‚Iy+l) 

968 steins(ix,iy)esteinstix,Iy+i)istein® 
(Ix,iyti)a*®5LOCATE 1x%#3+3, (1y+1)%3+2: PR 
INT * ":1yaly+13160T0 768 

978 IF Iysi THEN 789 

989 SOUND 1,169,19 

998 LOCATE 1x%3+3,1y%3+2: PRINT steins(ix 
‚Iy-U) 

1988 steins(ix,Iy)=steins(ix,Iy-L)istein 

“lx,iy-i)=""LLOCATE 1x%9+3, (1y-1)%3+2:P 
RINT ® ":1y=1y-1:60T0 768 

1818 FOR Ist TO 7:IF steinstl,4)=MID6(wo 
rtsir),1,1) THEN PEN 2:L0CATE 1%3+3,14:P 
RINT steins(1,4):SOUND 1,189,38:FOR d=i 
TO 498:NEXT d:ELSE PEN 3:FOR 1=188 TO 18 
STEF -1:SOUND 1,1,3:NEXT 1:L0CATE 6,17: 
PRINT"'Leider Spielende”:G0T0 1849 

1828 NEXT I 

1838 FOR 1=18 TO 198:SOUND 1,1,3:NEXT 1: 
FOR I=1 TO ?7:PEN 1:LOCATE 1%#3+3, 14: PRINT 
steinsi1,4):!NEXT Jipkte=spkteterla: IF r= 
18 THEN GOSUB 339:60T0 1130:ELSE rar+liz 
ueg=d:erliaserlailev):G0OSUB 320: G0SUB 399 
:G0TO 786 

1848 LOCATE 13,9: PRINT * ":LOCATE 16, 
9:PRINT * "LLOCATE 19,115 PRINT" "L 
OCATE 13,12:PRINT *" "SLOCATE 12,14:P 
RINT *® " 

1859 FOR 1=1 TO 13 

1968 READ xa,ya,1la:LOCATE xarid,yarsı PRI 

NT STRINGStla,CHRB(143) ) 

1878 NEXT 1: 

188% DATA 3,1,5,2,2,7, 
2,4,7,2, 5, 2,7,3,2,2,6; 

7,3,8,3 

189% LOCATE 6,28: PRINT "Noch einmal j/n? 
[} 


1105 as=INKEYS! a8=UPPERS(as): IF asc>"J" 
AND as)>"N" THEN 1199 
il1$ IF a8="J" THEN RUN 


112% END 

1138 PEN 3:L0CATE 6,5: PRINT"’Herzlichen": 
LOCATE 6,8: PRINT "Gluecknunsch!" 

1148 LOCATE 6,11: PRINT"Sie haben alle" 
1159 LOCATE 6,14: PRINT"Woerter richtig" 
1168 LOCATE 6,17: PRINT"geschoben!" 

1178 G0TO 1998 

1189 '=uns SUCHER =u== 

1198 rusi:FOR Ist TO 7 

1288 IF MIDs(worts(ir),l,l)=esteins(1,4) T 
HEN 1289 

1218 FOR g=ei TO 7? 

1228 FOR t=i TO ? 

1238 IF steins(t,g)=MIDstwortsir),1,1) T 
HEN "PEN Z2ittiru)etigg(ru)=g:LOCATE t#3+3 
‚9%3+2: PRINT steins(t,g)irusrurl 

1248 NEXT t 

1259 NEXT 9 

1268 rS=INKEYS: IF r#()"4° THEN 1268 

1278 FOR h=1 TO ru-1:L0CATE tt(h)*#3+3,99 
(h)#3+2:PEN 1: PRINT MiDstwort#(ir),1,1):N 
EXT h:00T0 1298 

12688 NEXT 1 

1298 GOTO 788 


WÖRTER SCHIEBEN 


Fortsetzung von Seite 59 


Würfel dafür sorgte, daß nervöse Denker etwas mit ih- 
ren Händen anfangen konnten. Es ging bei diesen Ta- 
schenspielen darum, innerhalb eines 4 mal 4 Felder 
großen Rasters eine logische Reihenfolge von Zahlen 
herzustellen. Dazu konnte jede Ziffer verschoben wer- 
den, weil in diesem quadratischen Raster eben ein 
Puzzle-Teil fehlte. 

Unser Autor Ulrich Vogel hat daraus ein ansprechen- 
des Computerspiel gemacht. 

Diesmal geht es nicht um eine Zahlenfolge, sondern 
um einen Wortbegriff. Auch ist das Raster etwas grö- 
ßer und es gilt, sich innerhalb eines 7 mal 7 Zeichen 
umfassenden Feldes zu bewegen. Die Steuerung er- 
folgt über die Zifferntasten, was sicherlich gewöh- 
nungsbedürftig ist, sich für das Spiel aber auszahlt. 
Die Tastaturbelegung wird im Programmverlauf 
erklärt. 

Hat man das Wort in das umrandete Kästchen ge- 
setzt, muß die Taste 9 gedrückt werden, was bei der 
Überschreitung des Zuglimits automatisch geschieht. 
Sollte man richtig liegen, erreicht man mit dem näch- 
sten Wort das nächste Level. Ein falsches Ergebnis be- 
endet die Spielrunde. 

Unter der Taste 4 verbirgt sich ein „Sucher“. Er zeigt 
auf die Position des gewünschten Buchstabens, wo- 
mit allerdings immer noch die Frage bleibt, wie die- 
ser in möglichst wenigen Zügen in das Zielfeld zu 
bringen ist. Die Anzeige wird mit Taste 4 wieder aus- 
geschaltet. 

Das Spiel kann verändert werden. Eigene Wörter wer- 
den in Zeile 140 definiert. Es müssen allerdings die 
richtigen Buchstaben vorhanden sein. Diese stehen in 
der Data-Zeile 730 und können ebenfalls modifiziert 
werden. 
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HAUSHALTS - BUCHFÜHRUNG 


Buchführungen, egal ob für den Haushalt, für das Kon- 
to oder einen kleinen Betrieb, leiden oftmals unter ei- 
nem Mangel: Ihre Bedienung ist zu umständlich, man 
ergänzt die Eingaben nicht mehr regelmäßig und die 
ganze Verwaltung verliert ihren Sinn, weil sie nicht 


artige Datei notwendig sind. Harry Schneider, nur zu- 
fällig mit seiner Computermarke namentlich verbun- 
den, zum Listing: 

Dieses Programm wurde geschrieben, um meine mo- 
natlichen Einnahmen und Ausgaben zu kontrollieren. 


HAUSHALTSBUCHFÜHRUNG 


FÜR februar 


= zz zz m zz zz: m = = 
AUSGABEN EINNAHMEN 
Miete 555.98 DM Gehalt 2335.08 DM 
Katze 21.89 DM Rente Oma 1145.09 DM 
Hund 54.28 DM 4.99 DM 
Haushalt 659.99 DM 9.69 DM 
Auto 222.98 DM 
Telefon 94.983 DM 
23.78 DM 0 w---.--2--2--2---------- -- = -- 
8.99 DM (HABEN) 3496.09 DM 
2.298 DM 
3.988 DM 
9.9068 DM (- SOLL) 1525.78 DM 
8.26 DM 
9.908 DM 
9.98 DM 
(sSoLL) 1525.78 DM (ENDSUMME) 19&4.22 DM 
SIE KÖNNEN IHREM KONTO 1964.22 DM GUTSCHREIRBEN ı!ı 


RRRRRRHHHHHARRRRRRBHSHRRRRRRRRHHRHREHRRRHSHHHRRHHHHRSSRHHHHHRHHHHHHHHEEN 


SONSTIGE AUSGABEN 
ZUSAMMENFASSUNG UNTER SONSTIGES 


ag 
xQ 


m m m m om m 


mehr den aktuellen Stand ausgibt. Gerade bei einer 
Haushaltsbuchführung, die tunlichst von jedem Fa- 
milienmitglied benutzt und auf dem laufenden gehal- 
ten werden soll, ist eine einfache und damit auch 
schnelle Bedienung oberstes Gebot. Schließlich ist 
nicht jeder ein Computerfreak, der am Abend ein- 
gibt, welche Kosten der Familiendackel verursacht. 
Wir glauben, mit dem Programm ‚„Haushalts-Buch- 
führung“ von Harry Schneider eine ideale Kombina- 
tion gefunden zu haben. Die Buchführung ist auch für 
Computerlaien schnell und bequem zu bedienen, bie- 
tet aber alle notwendigen Optionen, die für eine der- 


Man hat die Möglichkeit, die Einnahme-, Ausgabe- 

und sonstigen Posten frei zu benennen. Man kann 

sich zu jeder Zeit einen Ausdruck über Drucker ma- 

chen lassen und sein Soll und Haben Schwarz auf 

Weiß zu Gemüte führen. Die Menütechnik macht es 

einfach, die „Haushalts-Buchführung‘“ zu benutzen. 

Statt der Auflistung der einzelnen Optionen statt des- 

sen lieber eine Beschreibung des Programmaufbaus: 
10-1300 Tastenbelegung 

1310-1430 Anzeige des Kopfteils 

1440-1710 Anzeige des Hauptmenüs 

1720-1830 Eingabe eröffnen 

1840-2180 Ausgabe Liste Vergleich Einnahmen/ 

Ausgaben Vergleich Soll/Haben 

2190-2330 Erweiterungsmenü 

2340-2590 Ausgaben erweitern 

2600-2810 Einnahmen erweitern 

2820-2970 Speichern der Daten auf Diskette 

2980-3120 Einladen der Daten 

3130-3720 Ausdruck über Drucker 

3730-3810 Daten löschen 

3820-3900 Programm beenden 

3910-4110 Sonstige Ausgaben erweitern 

4120-4280 Menü für Posten erweitern oder ändern 

4290-4410 Sonstige Posten erweitern oder ändern 

4420-4550 Ausgabe Posten erweitern oder ändern 

4560-4730 Einnahme Posten erweitern oder ändern 
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18. RRHRHHRRHRRHHHHAHHSHBHRBHHHHRHHHHR 


15 ’%* HAUSHALTSBUCHFUEHRUNG * 
20 ’* VON * 
25 '* HARRY SCHNEIDER * 
3 '%* FUER * 
a ’% SCHNEIDER AKTIV * 
sg ’%* CPC 464/664/6128 * 


68 RHHRHHHHRHRHHHHRHRHHHHHHHHHHHHHHHE 
70 INK 1,8:1NK @,1S:BORDER 1S:MODE 2 
80 SYMBOL AFTER 32 

98 SYMBOL 33,8,8,8,8,8,92,8 

108 SYMBOL 34, 42,48,48 

118 SYMBOL 35, 49,40, 234,40, 254, 49,40 
128 SYMBOL 36, 8,30,49,28,10,62,8 

130 SYMBOL 37,0,98,4,8,16, 32,70 

148 SYMBOL 38, 24,36,36,56,74,68,58 
158 SYMBOL 39,8,8,16 

168 SYMBOL 49,8,16,32,32,32,16,8 

178 SYMBOL 41,16,8,4,4,4,8,16 

189 SYMBOL 42,9, 102,24, 126,24, 192 
199 SYMBOL 43,8,8,8,62,8,8 


200 SYMBOL 44,2,0,0,0,8,8,8,16 
218 SYMBOL 45,0,8,9,62 

220 SYMBOL 46,0,2,8,2,0,8,8 

230 SYMBOL 47,2,4,8,16, 32,64 

248 SYMBOL 48, 28,34,38,42,50,34, 28 
259 SYMBOL 49,8,24,49,8,8,8,62 

260 SYMBOL 59, 28,34,2,28,32,34,62 
270 SYMBOL 51,28,34,2,12,2,34,28 
280 SYMBOL 52,4, 12,20,36,62,4,38 
2979 SYMBOL 53, 62,34, 32,68, 2,34, 28 
390 SYMBOL 54, 28,34, 32,69, 34,34,28 
310 SYMBOL 55,62,34,4,8,8,8,8 

320 SYMBOL 56, 28,34,34,28,34,34,28 
330 SYMBOL 57, 28, 34,34, 39, 2,34, 28 
349 SYMBOL 58,0,0,8,8,9,8,8 

350 SYMBOL 59,0,0,8,8,2,8,8,16 

360 SYMBOL 69,4,8,16,32,16,8,4 

37@ SYMBOL 61,0,9,62,0,62 

38@ SYMBOL 62,32,16,8,4,8,16,32 
39@ SYMBOL 63,28,34,2,4,8,8,8 

400 SYMBOL 64,28,34,46,46,44,32,38 
419 SYMBOL 65,8,29,34,34,62,34,34 


420 SYMBOL 66,124,34,34,60,34,34,124 
439 SYMBOL 67,28, 34,32,32,32,34,28 
449 SYMBOL 68,124,34,34,34,34,34,124 
459 SYMBOL 69,126,34,32,60,32,34,126 
460 SYMBOL 70,126,34,32,60,32,32,32 


470 SYMBOL 71,28,34,32,46,34, 34,38 
489 SYMBOL 72,34,34,34,62,34,34,34 
478 SYMBOL 73,62,8,8,8,8,8,62 

598 SYMBOL 74,39,4,4,4,4,36,24 

519 SYMBOL 75,34, 36,49,56,48, 36,34 
528 SYMBOL 76,32, 32,32, 32,32, 34,62 
538 SYMBOL 77,34,54,42,42,34,34,34 


548 SYMBOL 78,34,34,59,42,38,34,34 
3580 SYMBOL 79,28,34,34,34,34,34,28 
369 SYMBOL 80, 124,34,34, 68,32, 32,32 
570 SYMBOL 81,28,34,34,34,42,38, 29 
389 SYMBOL 82,124,34,34,60,49, 36,34 


398 
688 
618 
629 
638 


SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 


SYMBOL 124,29, 


83,28, 34, 32,28,2,34,28 
64,62,8,8,8,8,8,8 
65,34,34,34,34,34,34, 28 


97,0,0,26, 38,34, 34,29 
98,32, 32,68, 34,34,34,92 
99,0,0,30,32,32,32,38 
109,2,2,30,34,34, 34,29 
101,0,0,28, 34,68, 32,30 
102, 28,34, 32, 128,32, 32,32 
103,9,8,30,34, 34,38, 2,68 
104,32,32,44,59,34, 34,34 
105,8,9,8, 
106, 2,8,2, 
197,32, 32, ‚48,40,38 
188, 32,32, ‚32,34, 28 
189,0,8,84,42,42,42,34 
119,0,9,44, 59,34, 34,34 
111,0,0, 28,34, 34,34, 28 
112,0,2,68,34,34,60,32,32 
113,0,0,30,34, 34,30, 2,2 
114,0,8,44,50,32,32,32 
115,0,0,32, 32,28, 2,68 
116,8,8,62,8,8, 18,4 
HR 34,34, 34, 34,29 


8 
‚34,28 
4 
3 


wm. 
n= 
a 
= 
E 1 


’ 
3 
98,08 
6 
8 


SYMBOL 125,208,9,34,34, 34, 34, 29 
SYMBOL 126, 28,34, 34, 68,34, 34, 44,32 
KEY DEF 32,1,48,95 

KEY DEF 24,1,126,38 

KEY DEF 28,1,123, 91 

KEY DEF 19,1,43,42 

KEY DEF 17,1,123,93 

KEY DEF 29,1,124,92 

KEY DEF 39,1,44,68 

KEY DEF 31,1,46,62 

KEY DEF 38,1,47,63 

KEY DEF 22,1,96,59 

KEY DEF 43,1,122,98 

KEY DEF 71,1,121,89 

1168 LOCATE 18,3:1NPUT "Wollen Sie eine 
andere Farbdarstellung (J/N) "5+6 

1178 IF #6="j" OR +6="J" THEN 1188 ELSE 
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1398 

1188 REM setze Anzeigetormat 

1198 FOR n=9 TO 26 

1228 MODE 2 

1218 INK 1,8 

1228 IF n)13 THEN INK I,n 

1238 INK 8, (26-n) 

1248 BORDER (26-n) 

1259 LOCATE 18,12:PRINT’Drücken Sie die 
'%’ Taste um die Anzeigefarbe zu ändern” 


1268 LOCATE 18,14: PRINT"Drücken Sie die 
’'s’ Taste um die Anzeigefarbe zu stoppen 
u 


1279 as=INKEYS: IF as=""G0T0 1279 

1268 IF a6="S"THEN NEXT:GOTO 1199 

1298 IF a8C)"s’THEN 1278 

1398 MODE 2 

1318 MODE 1 

1328 PLOT 18,19 

1338 DRAW 19,398 

1348 DRAW 639, 398 

1359 DRAW 6390,18 

1368 DRAW 19,18 

1378 LOCATE 18,4: PRINT’C PC 464" 

138% LOCATE 5,8:PRINT"HAUSHALT BUCHFÜHRU 

NG" 

1398 LOCATE 3,9: PRINT"seunusnenaussnnnas 

am! 

1498 LOCATE 12,11: PRINT"+Ur® 

1418 LOCATE 12,13:PRINT"monatliche Abrec 

hnung" 

1428 LOCATE 7,28: PRINT CHRS(164) 1: PRINT* 

WRITTEN BY HARRY SCHNEIDER® 

1438 CALL &BB18 

1449 MODE 2 

145@ REM DIM Einn#(4) ,Ausgs(14),Einn(4), 

Ausg(14) ‚HAUSH#(14) „HAUSH(14) 

1468 MODE 2 

1478 LOCATE 38,1:PRINT"C P C 464 

1489 LOCATE 30,2: PRINT"=eueszazazuzezon" 

1498 LOCATE 39,4: PRINT" 19853" 

1598 LOCATE 38,6:PRINT MENUE* 

1518 LOCATE 39,7:PRINT" zeunzuuze" 

1528 LOCATE 23,198:PRINT’# 1 %* NEUEINGAB 

EN + 

153% LOCATE 25, 11:PRINT’* 2 
* U] 


%* EINGABEN 
1548 LOCATE 23,12:PRINT’# 3 * ANSEHEN 
* “u 
* 


1559 LOCATE 25, 18:PRINT*F 4 SPEICHERN 
1568 LOCATE 28, 14:PRINTE 3 %* LADEN 
1578 LOCATE 25, 1S:PRINT*E 6 * DRUCKEN 
1588 LOCATE 28, 16:PRINT*+ 7 * LESCHEN 


1598 LOCATE 25,17:PRINT’* 8 * BEENDEN 


%* u 


1688 LOCATE 23,18:PRINT"* 9 * POSTEN ER 
W.od.äND.* " 

1618 LOCATE 23,29: PRINT’* 
N SIE Zu 

1628 as=1INKEYS: IF as=""THEN 1620 

1638 IF as="9"THEN 4159 

1648 IF as="8"THEN 3859 

1658 IF as="7"THEN 3768 

1668 IF a9="6"THEN 3130 

1670 IF a6="5"THEN 2988 

1689 IF a$="4"THEN 2829 

1698 IF as="3"THEN 1849 

1798 IF as="2"THEN 2190 

1718 IF a$<C)"1’THEN 1628 

1728 REMIHHRHHRHHHHRRHRHHHHHHER Eingeben 

IHRHHBHHRRHHRRRRHBHRHBHEHHHHR 

1738 MODE 2:0N ERROR G0T0 4728 

1748 DIM Einns(4) ,‚Ausgs(14) ,Einn(4) ‚Ausg 
(14) ,HAUSHS(14) ,„HAUSH( 14) 

1758 PRINT STRINGS(&LSZ, '-") 

1768 LOCATE 235,3: PRINT’DATEN EIN 
GEBEN 

1778 PRINT STRINGS (LSB, '-*") 

1788 PRINT" Für welchen Monat möcht 
en Sie die Haushaltsbuchführung eingeben 
1} 


BITTE WÄHLE 


1798 PRINT: INPUT" 
"imonat® i 

1888 WINDOW SWAP B:WINDOW 1,88,25,2S:CL8 

1818 INPUT"Möchten Sie ändern (j/n) "jwah 

18 

1828 IF wahl®="J" OR wahl$="j" THEN CLEA 

R:GOTO 1728 

1838 GOTO 4158 

1848 REMIHHBHHHHRRRRRHRHRHHHRE: Ansehen % 

HRHHHHRRRHHHARHHHHRBRHRRHHHE 

1659 solls=soll+HAUSHS 

1868 endsummeshaben-solls 

1878 MODE 2 

1888 PRINT STRINGS(KSO, "-") 

1899 LOCATE 25,3:PRINT "HAUSHALTSEINGABE 

N FÜR "jmonat® 

1988 PRINT STRINGS(LSQ, "-") 

1918 PRINT" AUSGABEN 

EINNAHMEN" 

1928 WINDOW 1,29,8,21:CL8 

1939 FOR i= 1 TO 14 

1948 PRINT USING"”& 

Bi) :NEXT 

1959 WINDOW 21,34,8,21:CL$ 

1968 FOR i= 1 TO 13 

1978 PRINT USING" HAHHk.H#"jAusgli):NE 

xT 

1989 IF Ausgli)=Ausg(14) THEN PRINT USING 

. RHRHH. HN" HAUSHS 

1998 WINDOW 35,49,8,21:CL8S 

28088 FOR i= i TO 14: PRINT"DM":NEXT 

2018 WINDOW 41,68,8,13:CL8 

2028 FOR i= I T0 4 

2838 PRINT USING"& 


ö"jAusg 


ö"jEinn 29 
67 


m ZH 


LISTING 


BCi):NEXT 

2048 WINDOW 61,74,8,13:CL$ 

285% FOR i= i TO 4:PRINT USING" 

HR"JEinnti)SNEXT 

206% WINDOW 75,89,8,13:CL8 

22378 FOR i= i TO 4:PRINT"DM":NEXT 

2088 WINDOW 41,88,14, 14: CL$ 

2898 FOR I= 1 TO 39:PRINT CHRSt1S4) 1 :NEX 

Tı 

2188 WINDOW 41,88,17,21:CL5 

2118 PRINT USING" (HABEN) 

NHHHH.AN"Ihabens: PRINT" DM" 

2128 PRINT:PRINT USING" (- SOLL) 

HHHnn.AH"Iuoliss: PRINT" DM" 

2130 WINDOW 1,88, 22,22:CL8 

2148 FOR I= I TO 88: PRINT CHRE(1S4) 1: NEX 

rı 

21358 WINDOW 1,088,24,25:CL8 

2168 PRINT USING? (SOLL) 

NAHHH.AH"Isolist: PRINT" DM"} 

2178 PRINT USING" (ENDSUMME) 
AunnH.AH"’sendsummes:PRINT" DM" 

2168 CALL &BBLB:MODE 2:00T0 1469 

2198 REMHHRHRARHRRBBHHHHHHHENN Erneiteru 

ngs Menue ÄHHRHRHHHRHHRRHHRRRHAEE 

2298 MODE 2 

2218 PRINT STRING$(&32, '-") 

2228 LOCATE 23,3: PRINT"EINGABEN FÜR "imo 

natsı * ERWEITERN" 

PRINT STRINGS(KSQ, "-") 

LOCATE 35, 19:PRINT'M E N U E*" 

LOCATE 35, 115 PRINT"-=------ -- “ 

2268 LOCATE 38,13: PRINT’* 1 %* AUSGABEN 


LOCATE 38,15: PRINT"#* 2 * EINNAHMEN 
2288 LOCATE 38, 17:PRINT"# 3 #* HAUPTMENUE 
2298 LOCATE 39,19:PRINT"’#* BITTE WÄHLEN 5 


2309 a8=INKEYS: IF at=""THEN 2308 

IF a6="3"THEN 1468 

IF a6="2"THEN 2688 

IF asC)>"’L"THEN 2398 

2348 REMIHHRHHRRHRRAHRHBRRRBHREHE: Ausgab 

en erweitern YHRHRRRRRRRHARRHHHHRR 

2339 MODE 2 

2368 PRINT STRINGS(LSQ, "-") 

2378 LOCATE 18,3: PRINT"HAUSHALTSAUSGABEN 

"imonatsı" ERWEITERN" 

2388 PRINT STRINGS(KSQ, "-") 

2398 FOR i=1 TO 14 

2488 PRINT 

2418 PRINT USING" #4 "JIR:SPRINT USING" 
B"jAusgs(i) 3: NEXT 

2428 WINDOW 21,44,7,23:CL5 

FOR i=s1 TO 13 

2448 PRINT USING" AnHHk.AH"FAusg(i)sj:PRI 

NT" DM":NEXT 

2458 IF Ausgti)=Ausg(14) THEN PRINT USING 
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" ARHRR.HR"STHAUSHSI:PRINT" DM" 

2468 WINDOW 45,80,8,8:CLS: INPUT"Geben Si 

e die Nummer ein"jwahl 

2478 IF wahl=8 THEN GOTO 2289 

2468 IF wahl=14 THEN GOTO 3949 

2498 IF wahl=ewahl THEN i=nahl:GOTO 259% 

2398 WINDOW 45,78,19, 18:CLS: PRINT USING" 

ö B"JAusgsti)} 

2518 FOR Ausg=1 TO i 

2328 WINDOW 56,89, 12, 15:CL8S: PRINT" DM" 

2538 WINDOW 45,55,12,15:CL8 

23548 INPUT Ausg 

25358 IF Ausg= 8 THEN 2208 

2568 WINDOW 39,78,24,24:CL5 

2378 Ausg(i)=Ausgti)+Ausg 

2588 soll=ssoll+Ausg 

23598 GOTO 2469: NEXT 

2688 REMIHHHHRRRHRRHRHHHHRHHRHHRR: Einnah 

men erweitern HHAHHRHRRHHRHHRHHHHE: 

2618 MODE 2 

2628 PRINT STRINGS(LSQ,"-") 

2639 LOCATE 18,3: PRINT "HAUSHALTSEINNAHME 

N FÜR *"smonatsj" ERWEITERN" 

2648 PRINT STRINGS (KSQ,"-") 

2658 FOR ist TO 4 

2668 PRINT 

2678 PRINT" "SiS: PRINT USING"ö 
&8"3Einnsti)} 

2668 PRINT USING" HAHHH.AH"FEinnti)I:PRI 

NT" DM*'I:NEXT 

269% WINDOW 45,88,8,8:CL5: INPUT"Geben Si 

e die Nummer ein"jwahl 

2788 IF wahl=8 THEN G0T0 2299 

2718 IF wahlswahl THEN i=wahl:G0T0 2728 

2728 WINDOW 45,78, 18, 1Q:CLS: PRINT USING® 

[=] ö"jEinns(i)} 

2738 FOR Einnst TO i 

2748 WINDOW 36,89, 12,15:CLS:5 PRINT"DM" 

2758 WINDOW 45,33, 12,13: CL$ 

2768 INPUT Einn 

2778 IF Einn= 8 THEN 220908 

2788 WINDOW 38,78,24,24:CL8 

2798 Einnti)sEinnti)+Einn 

2688 habenshaben+Einn 

2818 GOTO 2698: NEXT 

28285 REMIHHRHHHRRHHRHHHRHHRHHER Speichern 

IBHHRRBBRHHHRSHRBHRRHRRHHHEHE 

2838 MODE 2 

2848 PRINT STRINGS(KSZ, '-") 

26358 LOCATE 18, 3:PRINT"HAUSHALTSEINGABEN 

FÜR "jmonats}" SPEICHERN” 

2868 PRINT STRINGS(LSQ, "-") 

2878 A®=RIGHTS(monat$, 11) 

2868 FOR t=1 TO 399: NEXT 

2898 OPENDUT A$ 

2988 WRITEH9 ,monat8:WRITEH9, haben: WRITER 

9,s0l1:WRITEN9, endsumme: WRITEN9, solls 

2918 WRITEN? , HAUSHS 

2928 FOR i= 1 TO 14 

2939 WRITEHP, Ausgs(i) :WRITEH9 , Ausg i) WR 
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ITE#9 , HAUSHB (I) SWRITEH9 , HAUSH( 1) S NEXT 
2948 FOR i= 1 T0 4 

2959 WRITEHP,Einn®ti):WRITERF,Einn(i):NE 
xT 

2968 CLOSEOUT 

2978 G0TO 1468 

2969 REMHHHHHRHRRRHRHHHHHHEHE: Laden It 
IHHHHAHHHHRRHRBHRBHHBEHRHHRHHGE 


2998 MODE 2:CLEAR:DIM Einn®#(4) ,Ausgs(14) 
‚Einn(4) ,Ausg(14) ‚HAUSHS(14) ‚HAUSH(14) 
3808 PRINT STRINGS(&SQ, "-") 

3018 LOCATE 22,3: PRINT "HAUSHALTSEINGABEN 
LADEN ." 

3828 PRINT STRINGS(&S9, '-") 

3838 LOCATE 1,9: INPUT" Bitte geben S 

ie den Monat nit Jahr (---------- .--) ei 

n "jmonats$ 

3049 AS=RIGHTS(monat$, 11) 

3038 LOCATE 1,24:0PENIN A® 

3068 INPUT#?,monat®#: INPUTN9, haben: INPUTH 

9,soll: INPUT#9, endsumme: INPUTH9, solls 

3978 INPUTHP, HAUSHS 

3888 FOR i= i TO 14 

389% INPUT#F,Ausgsti): INPUTHP, Ausgti):s IN 

PUT#9 , HAUSHB (LS INPUTHP , HAUSH I) NEXT 

s1988 FOR i= I TO 4 

3118 INPUT#9,Einn$ti): INPUT#9,Einn(i);NE 

KT 

3129 CLOSEIN: Aß=monat#: 60T0 146% 

3138 REMEHRHRRBRRRHRRRAHHRRERN Drucken % 

KRHHRRHRRRRRBHHRRRRRBHARRRHHHN 

3148 MODE 2 

315% PRINT STRINSSIKSZ, "’-") 

3168 LOCATE 18,3: PRINT"HAUSHALTSEINGABEN 
LISTE DRUCKEN" 

3178 PRINT STRINGS(&SQ, ’-") 

3188 INPUT"Möchten Sie Ihren Ausdruck in 
(DIRAFT oder (N)LQ Qualität ausgedruckt 
haben’ Iw® 

3198 IF w6="D" OR w6="d" THEN 3228 

32088 IF w6="N" OR wS="n" THEN 3219 

3218 PRINT#8,CHRS(27) "TI" ICHREL3) J: PRINT 

48, CHRS(Z7) 5 "-"ICHRE(DI J:GOTO 3239 

3228 PRINT#8B,CHRS(27) "I" ICHRSLL)I JS PRINT 

#8, CHRB (2715 "-"ICHRBIDI I 

3238 PRINT#B, CHRB(Z27) ICHRECL1A) J 

3248 PRINTNB, " HAUSHALTSBUCHFÜHR 

UNG" 

3238 PRINTNB, CHRBIZ27) ICHRE( 1A) 

3268 PRINTHB, " ZEEBSZESBEZRZEERZEE 

num" 

3278 PRINT#8, CHRS(27) ICHRELLA) 5 

3288 PRINTNB, " FÜR "jmonat$ 


3298 PRINT#8,CHRS(27) ICHRS(14) 5 

3389 PRINTHB, " ZEBBSZEZZESEEZEER 
aun" 

3319 PRINT#8 
3328 PRINT#8B," 


MEN" 
3339 PRINT, " 


3348 FOR i= 1 TO 4 

3358 PRINT#8, USING" ö ö 

"sAusge(i)s:PRINTRB,USING" HARHH.HH”F Aus 

gti)5:PRINTHB," DM" 

3368 PRINT#HB, USING" ö 
Ö"rjEinn®(i) 1: PRINTHB, USING" HAnKR. un 

"}Einnti)s:PRINTHB," DM"’:NEXT 

3378 FOR i= 3 TO 6 

33889 PRINT#B, USING" ö ö 

"sAusgsti)]:PRINTHB,USING“ HANHN.AH"S Aus 

JtH)S:PRINTHS,*" DM’SNEXT 

3399 i=? 

3492 PRINT#8, USING" ö ö 

"sAusgs(i)5:PRINTRB,USING” HAHHH.AH";Aus 

gti) :PRINTHB," DM" 


3428 i=8 
3438 PRINT#8, USING" ) 5 
"JAuSgB(I)H:PRINTRB,USING" HANRH.HH" Aus 
SCH) I:PRINTRB," DM*I 

3448 PRINTHB, USING" (HABE 
N) HARRM. AH" haben; :PRINTAB," DM“ 
3458 FOR i= 9 TO 19 

3469 PRINTHB,USING* =) ö 
"JAusgS(i)5:PRINTHB,USING" HAHNN. HM" Aus 
91) I:PRINTRB,* DM" INEXT 

3478 i=11l 

3488 PRINTHB, USING" ) ö 
"HAUSGBCIH)S:PRINTHB, USING" HAHHN. AH" I Aus 
gCH)JSPRINTRB,® DM*I 

3499 PRINT#B, USING" (-SOoL 
LI HMn.AR"ISollsi :PRINTNB," DM" 
3508 FOR i= 12 TO 13 

3519 PRINTAB, USING" ö ) 
"JAusgs(i)S:PRINTRB,USING" AHHRN. AN" Aus 
gti) S:PRINTAB," DM*SNEXT 

3528 i=14 

3538 PRINTNB, USING" & ö 
"JAusgsti)s:IF Ausg(i)=Ausg(L4)THEN PRIN 
THB,USING® AAH. HR" SHAUSHSI:PRINTAB, * D 
M" 

3548 PRINTHB," 


mm so 2z2020022mao2n mann mnnsnnnmnmmmem 


3559 PRINTH8S 

3568 PRINT#8, USING" (SOLL)I 
KRAHN. HH" Ssollsj:PRINTHS," DM’ 

3378 PRINT#8, USING" (ENDSUM 
ME) HHnHH. AH" Sendsummes : PRINTRB," DM" 
3588 PRINT#8 
3398 PRINTHB, " 
BAZBLZEEZZBZRBIZRBEBREBERZENRZENZRBZEESESERBZERB 
nannz" 

36298 IF endsumme ) 8 THEN GOTO 3628 
3818 PRINTNH8:PRINTHB:GOTO 3649 


LISTING 


3628 PRINT#8 

3638 PRINT#8, USING® SIE KÖNNEN I 

HREM KONTO #HHkH. #4" jendsummejs :PRINTRB, " 
DM GUTSCHREIBEN !!" 

3648 PRINTRB, "RRRRRRRHRHRRBHRRRHRRRHEEN 

IAHRHHRHHRHRRHHRAHHHHRAHBRBBHHHRHHRHRHHANE 

RHRAHHRHHHRE" 
3658 PRINT#8 
3669 PRINTH8," SONSTIGE AUSGABEN 
3678 PRINT#8 

3688 PRINT#HB," 

ONSTIGES 

3698 PRINT#8 

3789 FOR i= 1 TO 14:PRINT#8, USING" 

ö 6"; HAUSHSCI) SS PRINTHS,USIN 

G" AHA" SHAUSH(I)DSSPRINTHB," DM":NEX 
T1 

3718 PRINTRB, "----------- 4-0 
IR ENUESERERUEREFNER. > 

3729 PRINT#8, "(SUMME SONSTIGES) "s:PR 
INT#8, USING" HANAN. AH" IHAUSHSI:PRINTHB, " 
DM" 

3739 PRINT48, "=susnzssenznsenzeczemaneee 
zunzzennm" 


ZUSAMMENFASSUNG UNTER S 


3758 GOTO 1468 

3768 REMIAHRRRRRHRHHRBRHHHRHRRRHRHHHER Lo 

eschen WHRRRHRHRRRRRHHHRHRRRHRHN: 

3778 MODE 2 

3788 PRINT STRINGS(KSG, "-") 

3798 LOCATE 18,3: PRINT"HAUSHALTSEINGABEN 
LÖSCHEN " 

3808 PRINT STRINGSS(LSQ, "-") 

3818 LOCATE 18,7:PRINT"Möchten Sie wirkl 

ich löschen (j/n)" 

3828 LOCATE 18,9: INPUT" "18 

3838 IF 16="j" OR I$="J" THEN CLEAR: GOTO 
1449 

3848 GOTO 1468 

3859 REMHRARRRRRRHHRRHHRHRHHRRHHRHHHH: Be 

enden HRHRRRHRRHRHRRRRHRHRHARH 

38648 MODE 2 

3878 PRINT STRINGS$(KSO, "-") 

3888 LOCATE 18,3:PRINT' PROGRAMM 
BEENDEN" 

3898 PRINT STRING$(&39,"-") 

3988 LOCATE 18,7:PRINT"Möchten Sie wirkl 

ich beenden (j/n)" 

3918 LOCATE 18,9: INPUT" "b8 

3928 IF b6="j" OR b#="J" THEN MODE 9:PRI 

NT!PRINT:PRINT" E N D E":CALL &BBL6 

3939 GOTO 1468 

37485 REMHHAHRRHHRRHRHHRRRHRRRHHRHHE Son 

stiges Erweitern HHRHHAHHRHHRRHRRHE 

3958 MODE 2 

3968 PRINT STRINGSLSQ, "-") 

3979 LOCATE 22, 3:PRINT"HAUSHALTS-SONSTIG 
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ES-AUSGABEN 

3988 PRINT STRINGS(&SQ, "-") 

3998 FOR i=1 TO 14 

4288 PRINT:PRINT USING" ## "Ji3:PRINT US 

ING’ö 8" HAUSHS (I) } 

4218 PRINT USING" AH. #4" 5;HAUSH(L)J:PR 

INT’ DM*J:NEXT 

4929 WINDOW 45,89,8,8:CLS: INPUT"Geben Si 

e die Nummer ein"jwahl 

IF wahl=8 THEN GOTO 2299 

IF wahl=wahl THEN i=wahl:G0T0 4959 

4859 WINDOW 45,798,19,19:CLS:PRINT USING" 

{=} B"IHAUSHS(I)F 

FOR HAUSH=1 TO i 

4879 WINDOW 356,89, 12,15:CLS: PRINT"DM" 

WINDOW 45,35,12,1S:CL8 

INPUT HAUSH 

IF HAUSH= & THEN 22988 

WINDOW 39,79,24,24:CL5 

4128 HAUSH(I)=HAUSH( I) +HAUSH 

HAUSHS=HAUSHS+HAUSH 

4148 GOTO 4829: NEXT 

4159 REMHRHRHRHHHHHRHHRRHHRHHHHHE Posten 
erweitern BRRRRRHRRHHHHHHRRRRRRRF 
4168 MODE 2 

4178 PRINT STRINGS (LSQ, "-") 

418% LOCATE 25,3: PRINT"POSTEN ERWEITERN 

ODER ÄNDERN" 

4198 PRINT STRINGS(LSY, "-") 

4298 PRINT:PRINT:LOCATE 34,8:PRINT"M EN 
UE! 

4219 LOCATE 28,19:PRINT'’* 1 % AUSGABE P 
OSTEN *" 

4228 LOCATE 28, 12:PRINT'# 2 %* EINNAHME P 

OSTEN *" 

4238 LOCATE 28,14:PRINT’* 3 % SONSTIGE P 

OSTEN #" 

4248 LOCATE 28,16:PRINT’* 4 %* HAUPT-MENU 

E *"' 

4258 LOCATE 28,19:PRINT’* Bitte wählen 

Sie +" 

4260 a%= INKEYS:IF aß= "" THEN 42608 

4278 IF a6="1" THEN 44598 

4289 IF a$="2" THEN 4599 

4298 IF as="3" THEN 4328 

4398 IF asC)"4" THEN 4268 

4318 GOTO 1468 

4328 REMIHHHHHRHHRHRHHHRER Sonstige Poste 

n erweitern HARHRBHHRHRRHRRRHRRHHR 

4339 MODE 2 

4348 PRINT STRINGS$(LSQ, "-") 

4358 LOCATE 298,3:PRINT"SONSTIGE POSTEN E 

RWEITERN ODER ÄNDERN" 

4369 PRINT STRING$(&SQ, "'-") 

4378 WINDOW 1,498,6,25:CL8 

4388 PRINT: PRINT:FOR i=1 TO 14 

4398 PRINT USING" HH"Ri: PRINT" 

SCI): NEXT 

4488 WINDOW 44,89,6,25:CL5 

4419 PRINT"Welchen Posten (Nr.) möchten 


"HAUSH 


NUTZEN SIE UNSEREN BEQUEMEN POSTSERVICE 


Das unabhängige Magazin 
für Schneider-Computer 


Finden Sie Ihre SCHNEIDER AKTIV nicht am Kiosk? 
Weil sie schon ausverkauft ist? Oder ‚‚Ihr‘‘ Kiosk 
nicht beliefert wurde? Kein Problem! Für ganze 60 
DM liefern wir Ihnen per Post zwölf Hefte ins Haus i 
(Austand 80 DM). Einfach den Bestellschein aus- 
schneiden — fotokopieren oder abschreiben, in ei- 
nen Briefumschlag und ab per Post (Achtung: Porto 
nicht vergessen). SCHNEIDER AKTIV kommt dann 
pünktlich ins Haus. 


KOMMT _ 
REGELMÄSSIG 
ZU IHNEN 


INS HAUS 


GARANTIE! 

Sie können diesen Abo-Auftrag bin- 
.nen einer Woche nach Eingang der 
Abo-Bestätigung durch den Verlag 
widerrufen — Postkarte genügt. An- 
sonsten läuft dieser Auftrag jeweils 
für zwölf Ausgaben, wenn ihm nicht 
vier Wochen vor Ablauf widerspro- 
chen wird, weiter. 


DAS SONDERANGEBOT: 
PRIVATE KLEINANZEIGEN 
SIND KOSTENLOS 


Das bietet Ihnen ab sofort SCHNEIDER AKTIV: KLEINAN- 
ZEIGEN SIND KOSTENLOS FÜR PRIVATANBIETER! Su- 
chen Sie etwas, haben Sie etwas zu verkaufen, zu tau- 
schen, wollen Sie einen Club gründen? Coupon ausfüllen, 
auf Postkarte kleben oder in Briefumschlag stecken und 
abschicken. So einfach geht das. Wollen Sie das Heft 
nicht zerschneiden, können Sie den Coupon auch fotoko- 
pieren. Oder einfach den Anzeigentext uns so schicken, 
auf Postkarte oder im Brief. Aber bitte mit Druckbuchsta- 
ben oder in Schreibmaschinenschrift! 

Und: Einschließlich Ihrer Adresse und /oder Telefonnum- 
mer sollten acht Zeilen a 28 Anschläge nicht überschrit- 
ten werden. 

ACHTUNG: WICHTIGER HINWEIS! 

Wir veröffentlichen nur Kleinanzeigen privater Inserenten 


kostenlos, gewerbliche Anzeigen kosten pro Millimeter 
DM 5,00 plus Mehrwertsteuer! 

Wir versenden für Privat-Inserenten keine Beleg- 
Exemplare! 

DIE INSERTION IST NICHT VOM HEFTKAUF ABHÄNGIG! 
Chiffre-Anzeigen sind nicht gestattet! Wir behalten uns 
vor, Anzeigen, die gegen rechtliche, sittliche oder sonsti- 
ge Gebote verstoßen, abzulehnen! 

Anzeigenabdruck in der Reihenfolge ihres Eingangs, kein 
Rechtsanspruch auf den Abdruck in der nächsten Ausga- 
be! 

Wir behalten uns vor, Anzeigen, die nicht zum Themen- 
kreis des Heftes — Computer — gehören, nur insoweit 
zu berücksichtigen, wie es der Umfang des kostenlosen 
Anzeigenteils zuläßt. 
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ANZEIGENSERVICE 


Die große Börse für jeden Zweck in SCHNEIDER AKTIV. Kostenlos für Privat-Inserenten. Spottbillig für gewerbliche Anbieter. Ein- 
fach Coupon ausschneiden, fotokopieren 0.ä., ausfüllen und ab die Post — Freimachen nicht vergessen! — Unsere Adresse steht 
auf dem Coupon, ebenso die Preise für gewerbliche Anbieter! Achtung! Wir weisen ausdrücklich darauf hin, daß wir offensicht- 
lich gewerbliche Anzeigen nicht kostenlos veröffentlichen und uns jedweden Abdruck kostenloser Anzeigen vorbehalten müssen, 
insbesondere, wenn deren Inhalt gegen geltendes Recht verstößt. Private Chiffreanzeigen werden nicht aufgenommen. Für Pri- 
vatanbieter: etwa bis zu acht Zeilen a 28 Anschläge. Für gewerbliche Anbieter: 5 DM p.mm. bei beliebiger Größe. 


EEE EEFET RIFF EFF FTIR TEE RT 
II SEEFERELEFITERFFF LT TE 


SCHNEIDER AKTIV Name 
Anzeigenabteilg. SP/2 Vorname 
Postfach 1107 Straße /Hausnr. 
8044 Lohhof PLZ/Ort 


SE-— 


ABO-SERVICE-KARTE 


Ich nehme zur Kenntnis, Ja, ich möchte von Ihrem Angebot Ausgaben an untenstehende An- 
daß die Belieferung Gebrauch machen. schrift. Wenn ich nicht vier Wochen 
erst beginnt, wenn die Bitte senden Sie mir bis auf Widerruf vor Ablauf kündige, läuft diese 
Abo-Gebühr dem Verlag ab sofort jeweils die nächsten zwölf Abmachung automatisch weiter. 
zugegangen ist! Name 

Vorname _ En 

Straße /Hausnr. 

PLZ/Ort 


Ich bezahle: 
U] per beiliegendem Verrechnungsscheck 

[] gegen Rechnung 

U] bargeldios per Bankeinzug von meinem Konto 
bei (Bank) und Ort 


Kontonummer 
Bankleitzahl 
(steht auf jedem Kontoauszug) 
SCHNEIDER AKTIV Unterschrift 
Abo-Service SP/2 Von meinem Widerspruchsrecht habe ich Kenntnis genommen. 


Postfach 1107 


8044 Unterschleißheim Unterschrift SP/2 
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PROGRAMMSERVICE 


Hiermit bestelle ich in Kenntnis Ihrer Verkaufsbedingun- 
gen die Listings dieses Heftes auf 


OD Kassetten (50DM) DI Diskette (60 DM) 


Ich zahle: (Zutreffendes bite ankreuzen!) 
per beigefügten Scheck DJ Schein [1 


Gegen Bankabbuchung am Versandtag U] 


Meine Bank (mit Ortsname) 

Meine Kontonummer 

Meine Bankleitzahl (steht auf jedem Bankauszug) 

Vorname Nachname 

Str./Nr. PLZ/Ort SP/2 


Verkaufsbedingungen: Lieferung nur gegen Vorkasse oder Bankabbuchung. Keine Nachnahme. 
Umtausch bei Nichtfunktionieren. 


Unterschrift 
Bitte ausschneiden und einsenden an 


SCHNEIDER AKTIV 
KASSETTENSERVICE SP/2 
Postfach 1107 

8044 Unterschleißheim 


=---- 2 -- DS 
LESER WERBEN LESER 


GEWINNEN SIE EINE COMPUTER- 
UHR! Und zusätzlich eventuell 
noch ein großes Computer-Buch. 
Oder ein Paket Disketten. ODER 
AUCH EINEN COMPUTER — 
ODER EINE DISKETTENSTATION! 
Wie? Sie werben einen Abonnen- 
ten. Dann haben Sie auf jeden Fall 
schon die Computer-Uhr gewon- 
nen. Zusätzlich verlosen wir unter 
allen, die mitmachen, jeden Mo- 
nat vier weitere wertvolle Preise. 
Und alle sechs Monate gibt es ei- 
nen Hauptpreis unter allen Abo- 
Werbern zu gewinnen. Also: Mit- 
machen. Mitgewinnen. 


Ja, ich mache mit beim Abo- 
Wettbewerb. Ich habe 


Herrn /Frau 
Straße /Hausnr. 


PLZ/Ort 


als neuen Abonnenten von 
SCHNEIDER AKTIV geworben. 


Der neue Abonnent war bisher 
noch nicht Bezieher dieser Zeit- 
schrift. 

Als Prämie erhalte ich nach Ein- 
gang des Abo-Entgeltes auf jeden 
Fall eine Computer-Uhr, wie abge- 
bildet, und nehme zusätzlich noch 
an der Verlosung des Monats so- 
wie der halbjährlichen Hauptprei- 
se teil. Mir ist bekannt, daß der 
Rechtsweg ausgeschlossen ist. 
Meinen Preis senden Sie an 


Name 
Straße/Hsnr. 
PLZ/Ort 


(Bitte ausschneiden und zusam- 
men mit der Abo-Bestellkarte links 


einsenden!) SP/2 


VERDIENEN SIE GELD 
MIT IHREM COMPUTER! 


Haben Sie einen CPC 464 oder 664 ? Einen 6128 ? Oder 
einen JOYCE? Können Sie programmieren? In Basic oder 
Maschinensprache? Dann bietet SCHNEIDER AKTIV 
Ihnen die Möglichkeit, mit diesem Hobby Geld zu verdie- 
nen! 


Wie? Ganz einfach. Sie senden uns die Programme, 
die Sie für einen Abdruck als geeignet halten, zusammen 
mit einer Kurzbeschreibung, aus der auch die verwende- 
te Hardware — eventuelle Erweiterungen — benutzte Pe- 
ripherie — hervorgehen muß, ein. 


Benötigt werden: eine Datenkassette oder Diskette! 
Wenn die Redaktion sich überzeugt hat, daß dieses Pro- 
gramm läuft und sich zum Abdruck eignet, zahlen wir 
Ihnen pro Programm je nach Umfang bis zu DM 300, —! 


Name des Einsenders: 
Straße /Hausnr. /Tel.: 
PLZ/Ort: 


Für das ‚‚Listing des Monats‘‘ sogar DM 1.000,'—. 
Sie erhalten Ihre Kassette / Diskette selbstverständlich 

zurück, wenn Sie einen ausreichend frankierten 

Rückumschlag mit Ihrer Adresse beifügen. 


Bei der Einsendung müssen Sie mit Ihrer Unterschrift ga- 
rantieren, daß Sie der alleine Inhaber der Urheber-Rechte 
sind! Benutzen Sie bitte anhängendes Formular! (Wir 
weisen darauf hin, daß auch die Redaktion englische 
Fachzeitschriften liest und ‚‚umgestaltete‘‘ Programme 
ziemlich schnell erkennt). 


Um Ihnen die Arbeit zu erleichtern, finden Sie hier ein 
Formular. Sie können es ausschneiden oder fotokopie- 
ren. 


Hiermit biete ich Ihnen zum Abdruck folgende(s) Programm(e) an: 


Benötigte Geräte: 


Beigefügt; I Listings U) Kassette L_] Diskette 


Ich versichere, der alleinige Urheber des Programms zu sein! 
Hiermit ermächtige ich die Redaktion, dieses Programm abzudrucken und wirtschaftlich zu verwerten. Sollte es in 
den Kassetten-Service aufgenommen werden, erhalte ich auch dafür eine entsprechende Vergütung. Das Copyright 


geht an den Verlag über. 


Rechtsverbindliche Unterschrift 


SCHNEIDER 
AKTIV 


Postfach 1107 
8044 Lohhof 
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LISTING 


4428 INPUT"Sie erweitern oder ändern"ji: 

IF i= 8 THEN 4158 

4438 PRINT:PRINT:PRINT USING" HH"Sis:sIN 

PUT" "IHAUSHS CI) 

4449 GOTO 449898 

4459 REMHRRRRRRARRRRHHHHRE Aunödben Poste ä 
RHRAHBRHHRHRRHHAHHHH: 

en Neue A Dauertest: 

4478 PRINT STRINGS (LS, "'-") Spiele FFN I28PC 

4488 LOCATE 29,3:PRINT"AUSGABE POSTEN ER £F 

WEITERN ODER ÄNDERN” 

4498 PRINT STRINGS (LS, "’-") 

4598 WINDOW 1,48,6,25:CL8 

4518 PRINT:!PRINT"An Position 14 '’SONSTIG 

ES’ eingeben ." 

4328 PRINT:PRINT:FOR i=1 TO 14 

453% PRINT USING" HA"FIN:PRINT" "Ausgs 

(1): NEXT 

4549 WINDOW 44,88,6,25:CLS 

4559 PRINT"Weichen Posten (Nr.) möchten 

“u 


4568 INPUT"Sie erweitern oder ändern’si: . Gesichtet 
IF i= 9 THEN 4158 
4578 PRINT:PRINT:PRINT USING® #H"sis:IN 
PUT" "jAusgB(i) 

4588 GOTO 4548 

4598 REMIHHRHHHHHHHHHHHHHE Einnahme Poste zz 

n erweitern HHHHHHHHHHRHRHHHRHHHNE Aus dem 
4608 MODE 2 

4618 PRINT STRINGS (LSB, *-") 

462@ LOCATE 28,3:PRINT"EINNAHME POSTEN E 
RWEITERN ODER ÄNDERN" 

4638 PRINT STRINGB (LSB, *-") 

4648 WINDOW 1,48,6,25:CL8 

4658 PRINT:PRINT:FOR i=1 TO 4 

466@ PRINT USING" #H"FIN:PRINT" "Einns 
(LI:NEXT | & 
4678 WINDOW 44,89,6,25:CL8 | DER KOMPATIBLE FÜR IHREN 


4688 PRINT"Welchen Posten (Nr.) möchten |0m 5,80/Ö8 49/$FR PRIVATEN 
U} 


4698 INPUT"Sie erweitern oder ändern’ji: 
IF i= 8 THEN 4158 

4708 PRINT:PRINT:PRINT USING" #H#"ji5:IN 
PUT" "sjEinns(i) 

4718 G0OTO 4678 

4728 MODE 9: PRINT"NEUEINGABEN" 

4738 PRINT: PRINT:PRINT" SCHON” 
4748 PRINT:PRINT: PRINT" GEMACHT ! 
rıa 

4758 FOR t= i TO 2099: NEXT t 

4768 G0TO 1468 


Kostenlose Kleinanzeigen 
für Privat gibts in 
Schneider aktiv 
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DESIGNER 


Mit „Designer“ liegt Ihnen ein Zeichenprogramm von 
Thomas Büchinger vor, das enorm leistungsfähig ist. 
Die Aufzählung aller Optionen überlassen wir gerne 
dem Autor, der nachstehend auch erklärt, wie damit 
umzugehen ist. Zuvor möchten wir aber noch schrei- 
ben, daß die Ausdruckroutine aus gutem Grund 
fehlt: Es ist unmöglich, eine einzige Hardcopy für 
alle Drucker zu entwickeln. Dazu sind einfach zu- 
viele Modelle auf dem Markt. Wir sind sicher, daß 
jeder von Ihnen eine Routine besitzt, die den Bild- 
schirm ausdruckt, sei es ein gekauftes Programm 
oder ein selbstentwickeltes. Sie sollten deshalb das 
abgespeicherte Bild direkt einlesen und anschließend 
eine Hardcopy starten. Eine kleine Routine dazu 
haben wir unter Tips und Tricks in der Ausgabe 2/87 
veröffentlicht. 


Programmbeschreibung 


Das Programm ist für einen CPC 464 geschrieben wor- 
den. Als Speichermedium kann sowohl die Diskette 
als auch die Kassette dienen. Bei der Verwendung ei- 
nes Diskettenlaufwerkes stehen zusätzliche Funktio- 
nen zur Verfügung (File löschen, Directory, File um- 
benennen). Da eigene Speicherroutinen verwendet 
werden, besteht die Möglichkeit, daß das Programm 
mit Fremdlaufwerken nicht funktioniert, eine Anpas- 
sung ist in diesem Fall jedoch leicht möglich. Zur Be- 
dienung des Programmes ist ein Joystick nötig. 


VAN 
AALEN un 


£ N 


Hinweise zum Abtippen 


Um unnötige Leerzeichen zu vermeiden, sollte vor 
dem Eintippen Poke &AC00,1 eingegeben werden, 
da das Programm sonst zu lang wird. Beim fertigen 
Programm können unnötige Leerstellen entfernt 
werden, indem man es als ASCII-File abspeichert 
(SAVE‘Name‘“,A), dann POKE &ACO0,1 eingibt 
und das Programm einliest. Hiernach kann es als 
Basic-Programm (ohne Leerzeichen) abgespeichert 
werden. 

Tippen Sie zuerst Listing 1 (CPC DESIGNER 
BASIC-TEIL) ein und speichern Sie es auf einer Dis- 
kette (Kassette). Danach geben Sie Listing 2 (CPC 


DESIGNER MC-LADER) ein, wobei Sie die Leer- 
stelle vor der Prüfsumme nicht vergessen dürfen, 
und speichern das Programm zur Sicherheit auf ei- 
ner anderen Diskette (Kassette). Erst jetzt geben Sie 
RUN ein. Wenn in den Datas kein Fehler ist (wird 
geprüft und angezeigt) dann speichern Sie den nun 
erzeugten Maschinencode auf der Kassette hinter 
dem Basic-Programm, bzw. auf die Diskette mit die- 
sem Basic-Programm. 

Sollte es später einmal notwendig sein, den Basic- 
Teil erneut zu speichern, z.B. Zum Ausbessern eines 
Fehlers, ist es notwendig, vorher das HIMEM her- 
aufzusetzen, z.B. durch MEMORY 20000. Da der 
zweite Bildschirmspeicher dadurch zerstört wird, 
sollte vorher das Bild abgespeichert werden. 

Zum Start wird zuerst das Basic-Teil geladen, Kas- 
settenbenutzer müssen anschließend noch einmal 
eine Taste drücken, um den MC-Teil nachzuladen. 
Nach einer Unterbrechung durch BREAK kann mit 
RUN 200 neu gestartet werden. 


Das Hauptmenü 


Sie sind nun im Hauptmenü des CPC-DESIGNERS 
und können mit dem Joystick eine Option anwählen 
und mit dem Feuerknopf bestätigen. Mit SHIFT 
kommt man von den Zeichen- und Malfunktionen 
wieder in das Hauptmenü zurück. 

Bei einigen Optionen melden sich Untermenüs. 
Auch diese werden mit dem Joystick bedient. Die 
Wahl von „Hauptmenü“ gestattet die Rückkehr zur 
Übersicht. Im einzelnen stehen Ihnen folgende Zei- 
chen- und Arbeitsroutinen des Programmes zur 
Verfügung. 


— Kreis — 

Bestimmen Sie zuerst den Kreismittelpunkt (Drük- 
ken des Feuerknopfes) und dann den Radius. Der 
Kreis wird danach gezeichnet. 


— Scheibe — 
Die Bedienung erfolgt wie unter der Routine „Kreis“, 
doch wird hier mit der eingestellten Farbe eine Schei- 


‚ be gezeichnet. 


— Rahmen — 

Fahren Sie mit dem Cursor auf einen Eckpunkt und 
drücken Sie den Feuerknopf. Halten Sie ihn gedrückt 
und spannen Sie den Rahmen auf die gewünschte 
Größe. Dann lassen Sie den Feuerknopf wieder los. 


— Fenster — 

Es handelt sich hier um die gleiche Routine wie beim 
Rahmen. Analog zur Funktion Kreis-Scheibe, wird 

a ein Fenster mit der eingestellten Farbe ge- 
üllt. 


— Muster — 

Diese Funktion dient dem Entwerfen eines eigenen 
Musters. In einem 8 mal 8 Raster können mit dem 
Joystick Punkte gesetzt (Feuerknopf) und wieder ge- 
löscht werden (erneutes Betätigen des Feuerknopfes). 
Ist das Muster fertig, dann drücken Sie die ENTER- 


Bitte lesen Sie weiter auf Seite 79 
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LISTING 


U BE 2 0 7 2 2 2 2 2.202 2.2 2 2 2 2 2 2% 21222 2 2 2 2 212212 2,2 2 


a °’% CPC DESIGNER MC-LADER * 
3 '+ VON * 
aa '%* THOMAS BUECHINGER * 
so '* FUER * 
6a '%* SCHNEIDER AKTIV * 
7 '%* CPC 464 * 
BEE 3 22 2 2 2 2 2 2 2 5 2 22 2 22 22 2 212 2 2 22 2 2 2 2 21225 


98 DATA Cd,09,BB,DA,A4,91,C9,F3,21,08,C9 
‚01,00,40,11,00,= 1679 

100 DATA 42,ED,B@,FB,C9,F3,21,09,40,01,0 
0,40,11,28,C2,ED,= 1788 

119 DATA BO,FB,C9,48,01,C8,00,08,01,08,8 
2,01,1A,00,1A,09,= 956 

129 DATA 93,08, 1A,21,02,03,07,09,0A,2C,0 
D,@E,@F,10,11,13,= 167 

130 DATA 17,08,3A,CF,#1,FE,00,CA,49,92,F 
E,01,CA,1C,92,CD,= 1944 

149 DATA ZE,BC,3E,08,32,87,99,3E,01,32,1 
D, 9A, 3E, 00,32,50,= 1898 

150 DATA 98,32,51,98,32,52,98,32,41,98,3 
2,42, 98,32,43,96,= 1323 

160 DATA 21,09,91,06,02,03,71,92,CD,8E,B 
C,3E,03,32,1D,9A,= 1553 

178 DATA 3E,23,32,50,98,3E,00,32,51,98,3 
2,52,98,32,42,98,= 1276 

180 DATA 32,43,98,3E,2B,32,41,98,3E,01,3 
2,87,99,21,D2,91,= 1439 

199 DATA 86,04,C3,71,92,CD,8E,BC,3E,@F,3 
2, 1D, 9A,3E,23,32,= 1328 

200 DATA 50,98,32,51,98,32,52,98,3E,2B,3 
2,41,98,32,42,98,= 1439 

219 DATA 32,43,98,3E,02,32,87,99,21,D6,9 
1,06, 19,3E,00,05,= 1344 

220 DATA 46,48,E5,F5,CD,32,BC,Fi,E1,30,2 
3,01,10,F1,2A,C7,= 2311 

230 DATA 91,22,88,90,2A,C9,91,22,84,90,3 
A,CC,91,CD,DE,BB,= 2184 

249 DATA 3A,CD,91,CD,E4,BB,3A,CB,91,47,4 
F,CD,38,BC,3A,CE,= 2297 

25% DATA 91,CD,59,BC,C9,00,00,CD,E6,91,C 
D,89,91,2A,A9,92,= 2300 

268 DATA E9,CD,AB,91,C9,3E,12,CD, IE, BB,C 
4,AB, 91,3E,2F,CD,= 2283 

270 DATA 1E,BB,C4,B9,91,C9,00,00,00,08,C 
D,59,98,CD,0A,9A,= 1759 

280 DATA 3E,15,CD, 1E,BB,C2,B5,92,3A,F4,B 
4,CB,67,CA,CE,92,= 2368 

290 DATA 2A,88,90,22,CA, 92,24, 6A, 99,22, 
C,92,C0,B9,91,ED,= 2184 

308 DATA SB,CA,92,2A,CC,92,CD,C9,BB,3E,1 
5,CD,1E,BB,C2,BS,= 2295 

318 DATA 92,CD,59,98,ED,SB,88, 90, 2A, 8A, 9 
0,CD,F6,BB,CD,Ad,= 2531 

328 DATA 91,3A,F4,B4,CB,67,02,F0,92,CD,A 
B, 91,03, CE, 92,00,= 2381 

330 DATA 00,08, 00,CD,39, 98, CD, OA, 9A, 3E, 1 
5,CD, 1E,BB,C2,BS,= 1695 

340 DATA 92,3A,F4,B4,CB,67,CA,27,93, 2,8 
8,90, 22,23,93, 2A,= 1992 
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259 DATA 8A,90,22,25,93,CD,89,91,ED,5B,2 
3,93,2A,25,73,CD,= 1976 
3680 DATA C0,BB,3E,15,CD,1E,BB,C2,B3,92,3 
E,17,CD,1E,BB,C2,= 2196 
374 DATA 27,93,CD,59,98,ED,5B,88,99,2A,8 
A,9@,CD,F6,BB,CD,= 2497 
380 DATA A4,91,34,F4,B4,CB,67,CA,49,93,C 
D,AB, 91,03, 49,93,= 2455 
399 DATA 00,00,00,00,CD,59,98,CD,8A,9A,3 
E,15,CD, 1E,BB,C2,= 1514 
480 DATA B5,92,3A,F4,B4,CB,67,CA,88,93,2 
A,88,90,22,84,93,= 2233 
419 DATA 2A,8A,99,22,86,93,CD,89,91,ED,3 
B, 84,93, 24,86, 93,= 2104 
428 DATA CD,CO,BB,3E,15,CD,1E,BB,C2,BS,9 
2,C00,59,98,ED,5B,= 2384 
439 DATA 88,90,2A,86,93,CD,F6,BB,ED,S5B,8 
8,90, 24, 8A, 98, CD,= 2378 
448 DATA F6,BB,ED,SB,84,93,2A,8A,92,CD,F 
6, BB,ED,SB,84,93,= 2699 
459 DATA 2A,86,93,CD,F6,BB,CD,A4,91,3A,F 
4,B4,CB,67,02,AA,= 2627 
468 DATA 93,CD,AB,91,C3,88,93,20,09,00,0 
0,90,ED,53,FC,93,= 1865 
47@ DATA 22,FE,93,CD,F@,BB,32,FB,93,ED,5 
B,FC,93,2A,FE,93,= 2685 
489 DATA {D,A?, 95, 2B, 2B, CB, 24, C2,20,94,D 
5,ES,CD,FO,BB,El,= 2612 
470 DATA D1,47,3A,FB,93,B8,CA,14,94,2A,F 
E,93,CD,A7,95,23,= 2269 
588 DATA 23,CB,44,CA,48,94,3E,8F,BD,DA, 4 
F,94,D5,ES,CD,Fö,= 2446 
518 DATA BB,E1,D1,47,3A,FB,93,B8,CA, 38,9 
4,C9,C0,59,98,CD,= 2582 
=28 DATA @A,9A,CD,B9,92,3E,15,CD,1E,BB,C 
2,85, 92,3A,F4,B4,= 2208 
538 DATA CB,67,03,84,9A,CD,59,98,3E,FF,3 
2,B7,98,CD,B9,92,= 2471 
548 DATA ED,SB,88,98,2A,8A,90,C0,20,94,3 
E,15,CD, 1E,BB,C2,= 1984 
550 DATA BS,92,3A,F4,B4,CB,67,02,69,94,C 
D,A4,91,03,50,94,= 2499 
560 DATA 3E,28,CD,59,8C,C9,00,3A,9A,74,C 
D,DE,BB,C9,20,00,= 1929 
=7% DATA 08,00,CD,3A,95,C0,59,98,CD,0A,9 
A,CD,B9,92,3E,15,= 1846 
s88 DATA CD, 1E,BB,C2,B5,92,3A,F4,B4,CB,6 
7,CA,A9, 94,ED,SB,= 2578 
590 DATA 88,90,ED,53,A2,94,2A, 8A, 90,22, A 
4,94,E5,DS,CD,08,= 2227 
620 DATA »4, CD,B9,92,3E,13,CD, IE, BB,DL,E 
1,C2,B3,92, 1B ‚BB, = 2171 
618 DATA 00, 208,CB,72,C2, FA, 94,D5,E5,CD, F 
&, BB, E1,D1,47,34,= 2546 
628 DATA FB,93,B8,CA,D0,94,ED,S5B,A2,94,2 
A,A4,94,13,20,00,= 2151 
63@ DATA @8,CB,4A,CA, 10,95, 3E,7F,BB,DA, 3 
4,95,05,E5,CD,Fö,= 2326 
649 DATA BB,E1,D1,47,3A,FB,93,B8,C2,34,9 
5,D5,E5,C0D,00,94,= 2522 
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650 DATA CD,B9,92,3E,15,CD,1E,BB,E1,DI,C 
2,B5,92,03,01,95,= 2341 

660 DATA CD,A4,91,03,49,94,3A,CF,91,FE,O 
0,CA,75,95,FE,01,= 2413 

678 DATA CA,SC,95,3E,00,32,02,95,32,03,9 
5,32,04,95,32,E3,= 1388 

688 DATA 94,32,E4,94,32,65,94,C9,3E,08,3 
2,03,95,32,94,95,= 1669 

69% DATA 32,E4,94,32,E5,94,3E,13,32,02,9 
5,3E,1B,32,63,94,= 1649 

780 DATA C9,3E,13,32,02,95,32,03,98,32,0 
4,95, 3E,1B,32,E3,= 1254 

710 DATA 94,32,E4,94,32,E5,94,C9,ED,5B,9 
7,95, 24,99,95,CD,= 2379 

720 DATA A7,95,C9,00,00,00,09,21,00,38,1 
1,E8,89,01,00,08,= 992 

738 DATA ED,BQ,C9,D5,ES,D5,ES,CD, 1A,96,3 
E,07,AS,4F ‚06, 00,= 2198 

748 DATA 21,EF,80,37,3F,ED,42,3E,07,A3,4 
7,7E,04,37,3F,17,= 1398 

759 DATA 18,FD,DA,D7,98,3A,ES,98,CD,DE,B 
B,EI,DI,CD,EA,BB,= 2961 

760 DATA C3,E2,95,3A,E6,95,CD,DE,BR,EL,D 
1,CD,EA,BB,E1I,Di,= 3115 

770 DATA C9,00,01,21,E8,9@,3E,FF,06,FF,C 
D,F?, 95,06, E1,CD,= 2219 

?8@ DATA F?,95,C9,E5,C5,F5,CD,A8,BB,FL,F 
5,CD,5D,BB, 3E,20,= 2893 

799 DATA CD,SD,BB,Fi,C1,E1,11,98,00,19,1 
8,E7,09,3E,FD,2A,= 1999 

800 DATA BS,95,CD,7A,9A,C9,B?,CB,1C,CR, 1 
D, 34,87,99,47,CB,= 2278 

81@ DATA 49,C4,7F,99,CB,48,04,7F,99,C9,4 
#,32,96,c9,96,95,= 2429 

820 DATA #c,00,00,00,00,37,3F ,2A,88,90,E 
D,4B,84,93,ED,42,= 1586 

830 DATA CB,?C,C2,38,96,24,88,90,22, 30,9 
6, 2A, 84, 93,22, 2E,= 1714 

840 DATA 96,03,64,96,2A,88,90,22,2E,96,2 
A,84,93,22,30,96,= 1708 

858 DATA 37,3F, 2A, 8A, 90,ED,4B,86,93,ED,4 
2,CB,7C,02,83,96,= 2148 

860 DATA 2A,8A,90, 22,32, 96,24,86,93,22,3 
4,96, 03,8F,96,2A,= 1647 

670 DATA 6A, 90,22,34,96,2A,86,93,22,32,9 
6, 87,24, 32,96, ED,= 1737 

880 DATA 4B,34,96,ED,42,B7,CB,1C,CB,1D,? 
D, 32, 38, 96, FE,00,= 1861 

890 DATA CA,D8,96,B7,24,30,96,ED,4R,2E,9 
6,ED,42,22,36,96,= 2040 

900 DATA ED,SB,2E,96,24,32,96, 34,38, 96,4 
7,0E,00,E5,DS,C8,= 1754 

910 DATA CD,CO,BB,ED,SB, 36,96, 21,06,00,C 
D,F9,BB,CI,DI,EI,= 2417 

929 DATA 2B,2B,10,E9,C0,AB,91,C3,86,93,E 
5,05,01,05,00,09,= 1791 

930 DATA 06,95,C5,E5,D5,CD,A7,95,DI,ELl,C 
1,2B,2B,10,63,D1,= 7282 

94@ DATA E1,C0,37,3F,01,04,00,EB,ED,dz,E 
B, 06, 08,C5,&8,DS,= 1972 
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958 DATA CD,A7,95,E1,01,02,09,09,54,5D,E 
1,C1,10,EF,C9,DS,= 2022 

968 DATA ES,21,DE,96,22,95,97, 
6,96, 21,A7,95,22,= 2242 

970 DATA 95,97,C9,ED,5B,88,90,2A,8A,90,C 
D,13,97,C9,ED,5B,= 2193 

980 DATA 88,90, 2A,8A,90,3A,F4,B4,FS,CB,4 
?,04,F6,96,Fi,FS,= 2683 

998 DATA CB,4F,C4,F6,96,F1,F5,CB,57,C4,D 
E,96,F1,FS,CB,SF,= 3982 

1080 DATA C4,DE,96,F1,C9, 09,08, 09, 34,89, 
00,00,00,70,85,00,= 1444 

1918 DATA 02,00, 00,00,00, 00,00,00,90,80, 
00, 00,00,00,00,00,= 0 

1926 DATA 09,00,00,00,00,00,00,00,21,68, 
97,CD,9D,BD, 11,59,= 945 

1038 DATA 97,21,68,97,CD,61,BD,21,68,97, 
11,72,97,01,05,00,= 1506 
1946 DATA ED,BO,21,68,97 
08,ED,BO,21,72,97,= 1708 
1850 DATA CD,88,BD,21,77,97,CD,8B,BD,21, 
6D,97,CD,9D,BD,CD,= 2418 

1068 DATA 8C,98,CD,8C,98,21,60,97,11,5E, 
97,CD,61,BD,21,72,= 1726 

1070 DATA 97,11,6D,97,CD,61,BD,21,77,97, 
11,6D,9?,CD,61,BD,= 1999 

1080 DATA 34,78,97,CB,?F,FS,21,72,97,CD, 
46,BD,F1,C4,04,98,= 2286 

1890 DATA ED,SB,88,90,19,E5, 3A, 7A,97,CB, 
7F,FS,21,77,97,CD,= 2276 

1100 DATA 46,BD,F1,C4,04,98,ED,SB,8A, 99, 
19, D1,CD,A?,98,C9,= 2418 

1116 DATA 7C,2F,6?,7D,2F, 6F,22,09,21,50, 
97,11,63,97,01,08,= 1359 

1120 DATA 00,ED,B®,21,60,97,11,63,97,C0, 
61,BD,C9,2A,8A,90,= 1989 

1130 DATA 04,91,23,23,10,FC,22,84,90,C9, 
2A,84,90,06,01,2B,= 1236 

114% DATA 2B,10,FC,22,84,90,C9,2A,88,99, 
06,@1,2B,2B,00,00,= 1243 

1150 DATA 10,FA,22,88,00,09,?a, 
@1,23,22,00,00,19,= 1196 

1169 DATA FA,22,88,90,09,34,F4,R4,FE,0%, 
CA,RB,9®,FE,1O,CA,= 2811 

11° DATA BR,OR,CD, 81,02,7B,47,03,21,08, 
CR,Ar,C4,2E,M@,CR,= 2286 

LER DATA ©7,04,2R,0R,CR,SF,04,44,28,CD, 
O0 ,S0,r0,FS,3A,B”,= 2462 

1190 DATA 98,FE,FF,CA,BS, 98,20,22,B7,93, 
EB,SF,CA,RS,98, 3A,= 2822 

1700 DATA >8,08 ‚CB,SF,c2,B0,08,70,27,28, 
29,22,37, 98,27 2r,= 

1219 Data on, 22,4, 93, 2E,00,22,8B”,9°,13, 
Pr, op, Se, Fr 32,B”,= 1987 

1729 DATA 98,F1,09,00,2E, De, 22,R7,98,5E, 


EI,DI,CD,F 


‚11,77,97,01,08, 


BB,F0,R6, 
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01,27,78,92,237,32,= 144? 
172% DATA 98,22, 3F,00,22 ‚aE,92,09,CD, FE, 
an,rn,oe,90,Ch,De,= 2204 


Herde Fr DATA 98,0D,EA,08,C9,2A,R8,98,CB,AC, 
C8,3E,7F,BD,D0,21,= 2364 
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1250 DATA ?7F,902,22,88,90,09,2A,8A,90,CB, 
44,C8,3E,8F,BD,D%,= 2941 

1260 DATA 21,8F,01,22,8A,90,C9,2A,88,99, 
CB,74,08,21,00,00,= 1568 

1270 DATA 22,88,99,C9,2A,8A,99,CB,74,C8, 
21,00,00,22,8A,90,= 1707 

1288 DATA C9,21,C7,08,ED,S5B,88,99,3A,87, 
99,47,CB,40,C4,7F,= 2048 

1298 DATA 99,CB,48,C4,7F,99,CD,1D,BC,22, 
39,99,22,5E,99,79,= 1972 

13088 DATA 32,4F,99,C9,21,00,00,11,00,08, 
B1,AF,3F,3E,C8,DD,= 1263 

1319 DATA 21,DC,99,FS,7E,DD,77,08,DD,23, 
F6,FF,77,F1,19,D2,= 24698 

1329 DATA 38,99,ED,42,3D,08,C3,47,99, 21, 
00,099,11,00,08,01,= 1283 

1339 DATA AF,SF,3E,C8,DD,21,0C,9@,FS,DD, 
7E,00,DD,23,77,Fil,= 2326 

1348 DATA 19,02,7A,99,ED,42,3D,C8,C3,6C, 
99,87,CB,1A,CB,1iB,= 2172 

1359 DATA 19,F9,C9,91,CD,15,99,CD,D3,99, 
CD,19,BD,F3,CD,E8,= 2314 

1369 DATA 99,C0,38,99,FB,3A,F4,B4,FE,90, 
C2,07,99,3E,12,CD,= 2385 

1379 DATA 1E,BB,C2,C7,99,3E,15,CD,1E,BB, 
C2,C7,99,3E,17,CD,= 2194 

1388 DATA 1E,BB,C2,C7,99,3E,2F,CD,1E,BB, 
C2,07,99,CD,B8,98,= 2381 

1398 DATA C3,99,99,CD,19,BD,F3,CD,5D,99, 
CD,FE,99,FB,C9,2A,= 2729 

1489 DATA 8A,90,B7,CB,1C,CB,1D,11,00,00, 
CD,1D,BC,22,E9,99,= 1787 

1418 DATA 22,05,9A,C9,21,00,00,06,50,3E, 
FF,DD,21,8C,98,56,= 1454 

1428 DATA DD,72,29,77,0D,23,23,10,F6,C9, 
21,80,90,01,59,00,= 1606 

1438 DATA 11,09,09,ED,B2,C9,CD,88,99,C9, 
21,88,99,22,0B,9A,= 1847 

1448 DATA C9,21,1C,9A,22,8B,9A,C9,3E, Ol, 
CD,DE,BB,3E,01,CD,= 1761 

1459 DATA 59,BC,CD,67,9A,3A,F4,B4,FE,09, 
C2,57,9A,3E,12,CD,= 2195 

1468 DATA 1E,BB,C2,57,9A,3E,15,CD,LE,BB, 
C2,57,9A,3E,17,CD,= 1882 

147@ DATA IE,BB,C2,57,9A,3E,2F,CD,1LE,BB, 
C2,57,9A,CD,B8,98,= 2159 

1489 DATA C3,29,9A,CD,67,9A,3A,CE,91,CD, 
59,BC,3A,CC,91,CD,= 2355 

1498 DATA DE,BB,C9,ED,SB,88,90,2A,8A,99, 
CD,C9,BB,CD,19,BD,= 2545 

15098 DATA 3E,FE,CD,FC,BB,C9,B7,01,07,08, 
ED,42,CD,A8,BB,C9,= 2416 

1519 DATA Ca,50,94,CD,B8,98,C3,69,94,cd, 
bS,9a,cd,8c,bc,2a,= 2334 

1520 DATA b1,9a,ed,5b,b3,9a,ed,4b,bi,9a, 
3e,82,cd,98,bc,d2,= 2454 

1539 DATA ad,9a,cd,8f,bc,d2,ad,9a,c9,cd, 
92,bc,c9,20,009,08,= 2341 

1549 ° 

1559 MEMORY &91A3 


13568 zeile= 99 : schritt= 19 

15378 adrek91AI :1ast=k9AB3 

1588 FOR i=i1 TO 16 

1599 READ bytes 

16098 POKE adr, VAL!"K"+bytes) 

1618 sum=sum+PEEK (adr) 

1628 adr=zadr+i 

1638 NEXT 

1648 READ checksum$: checksum=VAL (MID$(ch 

ecksum$, 3) ) 

1658 IF sum<>checksum THEN PRINT "Fehler 
in Zeile "jzeile:END 

1668 IF adr<last THEN sum=d:zeile=zeiler 

schritt:G0T0 1569 

1679 SAVE "cpcdes.bin"',b,&kP1A4,2317:END 


Fortsetzung von Seite 76 


Taste. Nun können Sie wählen, welches vorhandene 
Muster Sie auswechseln wollen. 480 verschiedene 
Designs stehen zur Verfügung, wobei allerdings die 
ersten 256 durch die ASCII-Zeichen belegt sind. Sie 
sollten daher zuerst die restlichen 224 umändern. 
Durch Änderung der Buchstaben können Sie auch ei- 
gene Zeichen für die Funktion ““Text‘ entwerfen. 


— Füllen — 

Flächen können unter dieser Funktion mit einem 
Muster gefüllt werden. “ Autofill“ füllt dabei automa- 
tisch, wogegen “Line fill‘, bei Drücken des Feuer- 
knopfes nur eine senkrechte Linie füllt. 


— Sprühen — 

Ähnlich wie bei einer Farb-Spraydose wird hiermit 
die Farbe locker aufgetragen. Diese Option ist ideal, 
um auch langsam verlaufende Farbflächen (Schatten 
auf einer Kugel) darzustellen. 


— Pinsel — 

Es stehen insgesamt 9 Pinselgrößen zur Verfügung. Die 
Funktion “Pinselpunkte‘“ dient dem Auftragen gan- 
zer Punkte, wohingegen die Funktion “Pinselstriche“ 
zum schnellen Malen größerer Flächen und Linien 
verwendet werden kann. Bei dieser Funktion reicht 

es nicht, den Feuerknopf zu drücken, sondern es 

muß gleichzeitig der Joystick in die gewünschte Rich- 
tung gelenkt werden, um eine Linie zu malen. 


— Linie — 

Drücken Sie den Feuerknopf am Anfang der Linie. 
Halten Sie ihn gedrückt, während Sie die Linie span- 
nen. Dann lassen Sie ihn wieder los und die Linie ist 
ixiert. 


— Strahlen — 

Bestimmen Sie zuerst den gemeinsamen Anfangs- 
punkt der Strahlen. Jedes weitere Drücken des Feuer- 
knopfes zeichnet nun eine Linie zu diesem Punkt. 
Wenn Sie die CTRL-Taste drücken, können Sie einen 
neuen Brennpunkt bestimmen, ohne erst in das Haupt- 
menü zurück zu müssen. 


Bitte lesen Sie weiter auf Seite 84 
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————————————— nn ÄöIöe  n 


LISTING 


18. HRRHRHHRHRHHRBHRHRSRBAHHHRHHHHRHHHE 


20 °'%* _CPC 464 DESIGNER BASIC-TEIL %* 
39 ’%* VON * 
aa ’%* THOMAS BUECHINGER * 
sg '* FUER * 
6 '%* SCHNEIDER AKTIV * 
7 '%* CPC 464 * 


8 ARRRHHRRRRRHRHHRHHSHRBRBHRHRHHHOHFHEN 
99 SYMBOL AFTER 91 

198 DATA 32,18,92,47,21,08,9a,11,9,9a,c 
9,cd,bS,9a,cd,77,bc,d2,d6, 9a,cd,da,Sa,cd 
‚83,bc,d2,d64,9a,cd,?a,bc,c9,cd,7d,be,c9, 
81,19,08,09, 
Se,23,56,d$,e1,c9,21,00,49,c9 

119 DATA 91,&DB,&3C,&66, Kb6,K7E,&66,&66, 
2,92,&66,&3C, 4:66, &66, &66, 466, 830,9, 93, &6 
6,442, 466, &66, 466, &66,43C, 9 

128 DATA 123,L.CC,9,%478,&C,&7C,&CC,476,8, 
124,466,2,%530,666,&66, 466, 830,9, 125, &66, 
2,%66, 666, &66, 66, &3E,0,2594,9,129, 112,12 
8,92,14,7,3, 
126,120,198,198, 232,198, 198,248, 192 

139 KEY DEF 17,1,123,91:KEY DEF 19,1,125 
‚93:KEY DEF 22,1,124,92:KEY DEF 24,1,126 
198 MEMORY &SFFFIFOR nek9ABS TO KIAE?IRE 
AD a8: POKE n,VAL("&k*+a8) : NEXT 

159 b8S="CPCDES.BIN"!GOSUB 13569: CALL KPAC 
BECLSTCALL KALAB:CALL KI6ZE 

168 z1=33099: z2=(PEEK (&B296) +236HPEEK (KB 
297)1-91%8 

1?8 FOR a=i TO 8:READ w:FOR z=d TO 7:REA 
Db 

188 oft=st8+z:POKE zi+otft,b:POKE z2+off, 


) 

199 NEXT z:NEXT a 

288 MODE 1:CALL &9494:G0SUB 2S90:CLG 9:D 
EFINT h-z:DIM b8(9),ptat1S):TAGimel44ine 
320: z=1:60T0 278 

210 MOVE m, n:DRAWR-134,9,p:DRAWR 9,38: DR 
AWR 134, 8:DRAWR 8,-30: RETURN 

228 DRAUR 152,@,1:DRAUR 9,57: DRAWR-152,0 
:DRAWR @,-37:MOVER 14,35: POKE KP4PA,3:CA 
LL LP49B:READ viMOVER v,d:READ as: as=UPP 
ERS (a8) : PRIN 

T asi: RETURN 

230 DRAWR 638,9, 1:DRAUR 0,24: DRAWR-638, 8 
!DRAWR 0, -24: RETURN 

248 x=PEEK(LIDBS) +256HPEEK (KPQBP) ; yaPEEK 
(KABBA) +236#PEEK (K9WBB) ! RETURN 

259 POKE KPLCB, INTIX/2S6):POKE KPLC?, INT 
(x= (286#PEEK(KPLCBI I IEPOKE KHICA,INTIy/2 
S6) :POKE KPLCP, INTLy-(2S6XPEEK(KAICA)) I: 
RETURN 

260 FOKE &9398, INT(x/256) :POKE 89597, INT 
(x= (286 XPEEK (K9SPB) ) ) :POKE KAS9A, INT (y/2 
S6):POKE &9S99, INT(y- (256KPEEKIKISPA))): 
RETURN 

27@ RESTORE 48@:MOVE 2,0:00SUB 232: POKE 
KPA9A,2:CALL KA4PB:MOVE 121, L8:PRINT"H 
AUP TKM E N Ü"IIMOVE 8,375:60SU 
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B 239: POKE & 

HAsA,2:CALL K949B 

288 MOVE 41,392: PRINT'C P C 
ION E R’Y 

298 FOR y=3? TO 303 STEP 67:FOR xed TO 4 

8? STEP 162:MOVE x,y:GOSUB 220:NEXT x! NE 

xT y 

3209 WHILE o<C>16 

3189 0=J0Y (9) 

IF o=83 AND m(S88 THEN mam+1l62:zer+1 

IF 0=4 AND m>130 THEN mam-l62: zur-1 

IF oet AND z>eS THEN nen+&7!znz-4 

IF o=2 AND z<iesl& THEN nen-4?: zez+d 

p=2:60SUB 219:FOR wal TO 3898: NEXT 

IF JOY(Q)a8 THEN 376 

p=:G0SUB 219: WEND 

398 ON z GOTO 440,1429, 430, 1840,779,1938 

‚1229,1859,419,429,260,1039,1230,1599,12 

69,1308,1959,1439, 1980, 1628 

488 DATA 32,bild,Q,speicher,d,kopieren, 1 

6, tarben,8, löschen, 24,modus, 24,maske, 16, 

Cursor,24,linie,d,stranlen,d, zeichnen, 32 

‚text,16,mus 

ter,i16,füllen, 8,sprühen, 16, pinsel,24,kre 

is,9,scheibe, Lö,rahmen, 8, fenster 

ala GOSUB 2398: unuk92:nlekCcE:GOTO 1978 

429 GOSUB 2509; un=k93:n1=&27:G0T0 1979 

438 GOSUB 2309: POKE KO3IFS,KCD:POKE KI3FE 

‚KAB:POKE K93F?, KALI mhek93:nL=&B8:GOTO 1 

978 

499 GOSUB 2393 

438 GOSUB 2389:DEO 

469 CALL KPESPLCALL KIABA:CALL &I2BI:LF 

INKEY(ZLI<C>-1 THEN CALL KPLABIRUN 2099 

478 IF PEEK(KBAFA) J=L& THEN GBOSUB 248 EL 

SE G0TO 469 j 

489 maxiney 

43% CALL KPESPLCALL KIABA:CALL KIZBR:IF 

INKEY(ZLYC)-L THEN CALL KPLAB:RUN 290 

s@8 IF PEEK(KBAF4) )al6 THEN GOSUB 248 EL 

SE 50T0 499 

Sig IF xem AND yan THEN GOTO 49% 

“28 IF j=1 THEN GOTO 1398 

539 r=SOR(ABS(y-n) *2+ABS(x-mi *2) 

$48 ORIGIN m,n 

3s39 IF vet THEN G0OTO 374 

S69 FOR asd TO 45 STEP S8/r:xerkSINta):y 

er#C0S(3::PLOT x,y:PLOT-x, -yıPLOT-x,yı PL 

OT x,-y:PLOT y,x:PLOT-y,-x:PLOT-y,x:PLOT 

Yı-x!NEXT a 

:ORIGIN 8,9:G0T0 468 

578 FOR a=d TO 45 STEP 60/r:MOVE rX#SINia 

I),r#C0Sta):DRAW-r#SIN(a) ,r*COS(a):MOVE r 

#5IN(a) , -r#C0Sta) sDRAW-r#SIN(a) , -r#C0Sta 

):MOVE r#C0S 

ta) ‚r4SINta) : DRAW-r#COS(a) ,r#SINta) MOVE 

r#CCSta), -r#SIN(a) !DRAW-rXCOS(a),»-r*5IN 

(a) 

388 NEXT:ORIGIN 9,9:G0T0 468 

398 MODE 1:G0SUB 2399:CL6 2: TAGın=Sibs(L 


LISTING 


MUSTER AÄNDERN":bE(ZI="H I 
NTERGRUNDFAR B E":bE(3I="V O9 
RDERGR 

UNDFARBE"dDEi4IB" ALLES EL 
NGESTELLT” 


6a GOSUB 2560: G05UB 2370: IF zei THEN 60 
TO 620 ELSE IF z=2 THEN G0T0 630 

619 IF z=3 THEN 640 ELSE G0SUB 2599: RETU 
RN 

628 GOSUB 2S70:MODE 1:5LOCATE 9,25;PEN 25 
PRINTNEUES MUST E R"’:GOSUB 658 
sa=a+7:POKE &95B6, INT(a/236):POKE &9SB3, 
INT(a-1256#P 

EEK (KISBE) I I):GOTO 399 

638 GOSUB 2460: POKE KASES,pf:GOTO 598 
648 GOSUB 2469: POKE KASES,pf:GOTO 598 
638 LOCATE 1,1:PEN LICALL KASE7:PEN 3 
a=33099:xe2; yul 

67% WHILE JOY(O)<I6 

IF INKEYtZI)C9-1 THEN RUN 299 

IF JOY(@)s1 AND y)=2 THEN yay-Liasna- 


IF JOYtQ)=2 AND y(=23 THEN yay+lıaaa 
+168 

7198 IF JOYtQ)=4 AND x)=4 THEN xux-2iaua- 
8 

728 IF JOY!Q)=8 AND x<=38 THEN xax+r2iasa 
+8 

?30 PEN 3:L0OCATE x,y:PRINT CHRS(242) FOR 
n=i TO 209: NEXT 

748 IF JOY(W)=9 THEN 749 

788 LOCATE x,y: PRINT CHR#(32) 
768 WEND: RETURN 

778 CLO Yineiibell\a" MUSTER 
WER LF E N":60SUB 2379 

788 MODE 1:60SUB 2399: x=200:,=300: FOR n= 
1 TO 9:MOVE x,y:!DRAWR 0, -2Q6, 2: x=x+25: NE 
XTıx=290: FOR n=i TO F:MOVE x,y:iDRAWR 200 
‚B,2:yey-26: 

NEXT:PEN 3:LOCATE 198,24: PRINT"WENN FERTI 
ı <ENTER?" 

798 x=202: ya298 

808 IF JOYt@)=1 AND yi=a274 THEN yay+26 

sıa IF JOY(&)=2 AND y)=127 THEN yay-26 

829 IF JOYtQ)=4 AND x)=227 THEN xux-2 

839 IF JOYtQ)=8 AND x(=378 THEN xax+25 

849 v=TEST(x,y):IF JOY(Q)>=i& THEN GOSUB 
aa 

850 MOVE x,y-id:DRAUR 21,9,3:FOR nst TO 

399: NEXT 

869 IF INKEY(Z2L)IC>-1 THEN RUN 299 

879 IF INKEY(LBICY-L THEN 928 

889 IF JOY(@)=@ THEN 868 

898 MOVE x,y-18:DRAUWR 21,8,v:G0T0 808 

988 IF vel THEN med; v=d ELSE mel;vet 

918 MOVE x,y:FOR n=d TO 22 STEP 2:MOVE x 
‚yn:DRAWR 21,2,m: NEXT: RETURN 

929 be32998: xw292: y=298: vel28:8=0d; FOR ni 

=1 TO 85FOR nei TO 8:MOVE x,y:IF TEST(x, 

y)=1 THEN sesrv 


ENT 
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939 vav/2ix=x+2S5:NEXT:IPOKE b,8:ymy-26: x 
292: beb+l:!ve128:5=0! NEXT 
948 CALL &PLAS:MODE 1:LOCATE 3,25: PEN 2: 
PRINT*’WELCHES MUSTER WOLLEN SIE ÄNDERN ? 
":GOSUB 659:6=32999: FOR n=d TO 7:FOKE a+ 
n,PEEK(b):be 
b+1:NEXT 
958 MODE 1:TAßin=2:bslL)="NOCH EI 
N MUST E R":60SUB 2370:60T0 788 
96Q GOSUB 2300: G05UB 2568 
978 TALL KIBSP:CALL KIAZA:CALL KIZBAIF 
INKEYtZLICY-L THEN CALL KILABSRUN 298 
988 IF PEEK(KB4F4) Jal& THEN GOSUB 249: PL 
OT x,y:POKE &98B?, 235 
998 GOTO 978° 
1009 GOSUB S98:G0SUB 258% 
1818 CALL KIBYIP:CALL KIADA:CALL &9ZBI:IF 
INKEY(Z21)<)-1 THEN CALL KPLAB:RUN 299 
1828 IF PEEK(KBAF4) I)aL6 THEN CALL &977C: 
GOTO 1918 ELSE GOTO 1918 

1939 GOSUB S9d:CLG Ain=3ibstl)="FÜLL 
E N"!bS(2J= LINIE FOÖLL E N"’:COS 
UB 237%: IF zei THEN whek94:wlakAs ELSE m 
h=K 94: w1=&k5Q 

1249 GOTO 1979 

1838 GOSUB 2508:CL6 Q:TAGOFF:PEN 2:LOCAT 
E 1,1:PRINT"GEBEN SIE DEN TEXT EIN UND D 
ANN XENTER>: "ICALL KALA4SPEN 3:L0CATE 1, 
S;LINE INPUT 

EB: TAG 

1848 CLG Yinsdibsliie" NORM 
RIF T’:bED=-"RECHTSG 
Tr:bEIBeLL INKSGENELI 
2370: IF zei 

THEN k=@ ELSE IF z=2 THEN kei ELS 
1878 GOSUB i880:G0T0 1128 
1989 CLG Qines:bstl)=s"NOR 
88H Erbe)" DO PPELT 
tbet3)e'DREIFACHE 
4a! TER 
FACHE 
CHE 


AL 
EN 
GT 


M 
E 
H 


“emz 
m 3 


RETITE"BSCZI="D OP 

ETTE":BEI=DRETI 

E IT E"':DRt 

4="VTERFA 

S=e"FÜNFFA 

UB 2379: xmez 
1108 IF PEEK(KIICFY=d THEN xu=4 ELSE IF 

PEEK(KFICFI=1 THEN xs=2 ELSE xs=l 

1119 ys=2: RETURN 

1128 GOSUB 2589 

1138 CALL KIBSI:CALL KAABASCALL &KIZBIEIF 
INKEY(21)<>-1 THEN CALL &ILABSRUN 29% 
1148 IF PEEK(KB4FA)CIE THEN GOTO 1139 
1158 GOSUB 242:FOR wei TO LEN(CS) ım=ASCt 

MIDS(c6,n,1)):6=33009:beb+ (m#8) :G0OSUB 11 

7a: IF XPOSY=649 THEN waLEN(cC®#) 

1189 NEXT:GOTO 113% 


[0 - 
om 22m > 


m 


LISTING 


1178 MOVE x+tcw-L)#xmExakB),yiFOR bytel 
TO 8:nePEEK(bI: IF n)d THEN ybis=BINS(n,8 
):GOSUB 1299 

1188 MOVER &, -ymkysibsb+l:IF k=i THEN MO 
VER-xs,8 ELSE IF k=2 THEN MOVER x5,8 
1198 NEXT: RETURN 

1288 FOR yby=1 TO 8:bis=MIDS(ybis,yby,1) 
‘IF bis="L"THEN GOSUB 1L228:ELSE MOVER xs 
*m,d 

1218 NEXT:!MOVER- (Bixmitxe) , d: RETURN 

1228 FOR xbei TO xm:DRAWR 8, (ym-L)%ysıMO 
VER xs,- (ym-1)*ys:NEXT:!RETURN 
1239 CLG Yin=d:psll)a" ALTES 
TER'!BESEDE"NEUES PAPILI 
“UML T MUSTER LBSC 
:60SUB 2378: ‚ 

IF ze3 THEN 1258 ELSE IF zei THEN 1248 E 
LSE GOSUB 2468: POKE KHALCD,pf 

1248 MODE PEEKtKPICFI:CLG PEEKIKALCDI:SCA 
LL K9LAB:!RUN 299 

1258 GOSUB 99: TAGOFF:GOSUB 2589: PEN PEE 
Kik9SESI:PAPER PEEK(KISESI:IF PEEK(KILCF 
I=d THEN zi=28 ELSE IF PEEK(KIICFIeL THE 
N zi=48 

1268 IF PEEK(KILCF)I=2 THEN zl=88 

1278 c6=STRINGS(zZI,CHRB(233) ):CALL KAG 
sLOCATE 1,1:FOR zei TO 25: PRINT cSI :NEXT 
:CALL KILAB:TAG!RUN 298 

1288 CLO din=S:pell)e"'STAN 
MODU S’:usi2)""XOR- MO 
3)e"AND- MOD LU S"':be(d)= 
D U S":MOVE 

38, 16:POKE KIA9A,3:CALL &KI49B: PRINT" JETZ 
TI’): MOVE 169, 16 

1298 PRINT DELPEEKIKIICE)+L)I:GOSUB 2378 
:POKE LKAICE,z-1:RUN 208 

1308 CLG bs) CURSOR 
E N’!DBECD)=’STREC 
RE N":BEEBE"P FE TIL 
5 0 R':b8(4) 
"KREUZ 
OSUB 2379 
1318 IF z=4 THEN CALL 
1328 IF z=3 THEN CALL 
1339 GOSUB 25809 

1348 IF ze2 THEN GOTO 1398 

1358 CALL KIBSP:CALL KPABA:IF INKEY(ZLIC 
>= THEN CALL KALAB:RUN 298 

1368 IF PEEK(KBAFA)CI& THEN GOTO 1338 
1379 GOSUB 249: G0OSUB 230: RUN 20% 

1368 j=e1:00T0 468 

1398 ORIGIN 9,9: IF x?>m THEN x=m+INT(x-m) 
1/2 ELSE xex+INTin-x)/2 

1499 IF y)n THEN yan+INT(y-n)/2 ELSE yay 
+INT(n-y)/2 

14198 GOSUB 258:RUN 2098 

1428 GOSUB 2309: v=1:60T0 458 
1439 CL3 Yin=?Ybell)e"B IL 
CHERN"IERDI='BILD 
K3a)=MUSTER SPEI 


PAP 
E R":b 
HEN" 


DARD- 
D U S';ost 
OR-MO 


ALS CGURSO R":n=6:6 


KIABE:RUN 298 
KIALSSRUN 288 


D SPE 
LADEN 
CHERN 
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s(a)e"M US 

TER LADEN':bRS-ATTRIBU 
TE SPEICHER N":bSl6I="ATTR 
IBUTE LADE N":GOTO 26889 


1948 IF zei OR z=2 THEN a=16384:c=16354} 
c6=",pic":POKE KPACA,KEI:FOKE KIACHB, KIA 
1458 IF ze3 OR z=4 THEN 82330099: c=3849:6 
0SUB 1549:c9=",pat" 

1468 IF z=S OR ze6 THEN a=37319:c=31:605 
UB 1949:c9e",att” 

147% IF z=t OR z=3 OR z=S5 THEN GOSUB 188 
8:G60T0 1309 ELSE GOTO 1518 

19488 PEN 2:WINDOWNG, 5,49,19, 16: RETURN 
19498 CLS:PEN LSLOCATE S,S:CALL KALA4SINP 
UT"’NAME (OHNE EXTENSION)! "Ibe:LF be=n"*"O 
R LEN(bS) 8 THEN 1499 ELSE RETURN 

15308 TAGOFF:GOSUB 1499: G0SUB 1489: GOSUB 
1339: G0SUB 1350: CALL KYABD:SPEED WRITE 8 
ıTAG:GOTO 1328 

1518 TAGOFF:GOSUB 1498:G0SUB 1489: G0SUB 
1359: CALL KIACD:GOSUB 1610: TAG:GOTO 1528 
182% WINDOWNZ, 1,48,1,23:RUN 20% 

1538 POKE KOAB2,INTta/236):POKE KIABI, IN 
T(a- (2356#PEEK (KIAB2))):POKE KYAB4, INT (c/ 
256): POKE KYAB3, INT(c- (256FEEK (KIABA) ) ) 
RETURN 

13549 FOKE KIACA,KDA:POKE KPACB,KFA:RETUR 
N 


1539 besbsrce 
1563 POKE KIAFR,LEN(BE) In=KHAEB: FOR I=l 

TO LENtBB):POKE n,ASC(MIDEChE, 1,1))inan+ 
L:NEXT 

157% RETURN 

1588 IF PEEK (&BE4L)C)23S TH 
SE CLG Bin=dibe(l)="L AN GO 

EICHERN"ISZDI="SCH 

PEICHE 

R N*:G0SUB 2379: SPEED WR 


EN RETURN EL 
SA 
NE 
r 


I 

0 
2 8 g"r:bstZI="M O 
2 9 B":bs(3)="M O 
2% 


1688 MOVE 19,1&:POKE KI49A,I:CALL KIIPB! 
PRINT"JETZT:"I:MOVE 128,16: PRINT bB(PEEK. 
(KALCF)+LIK:GOSUB 2378: POKE KIICF,z-1:G0 
SUB 1419; RUN 

208 

1618 POKE KILCC,L:POKE K9SES,A:POKE K9SE 
6, 1! RETURN 

1628 CLS Bine3tpsll)-"RANDFAR BE?’ 
!b6(2)="FARBENSET 2 E N":GOSUB 2 
379: G0SUB 1649: ya399- (m/2) nel 

1639 IF zei THEN GOTO 1698 ELSE G0OTO 172 
[) 

1648 MODE B:IF PEEK(KALCFI=I THEN n=e3:m= 
&P1D2:G0T0 1678 

1658 IF PEEK(KFICF)I=d THEN nelS;mak91De: 
GOTO 167% 

1668 nel:!mak9LDO 


LISTING 


167% rem:FOR we TO n: INK w,PEEK (m) !mam+ 
1:NEXT w 
1688 nen+l:m=INT(480/n):y=Bd: FOR we TO n 
-1:0RIGIN 8,0,9,639,y,ytm-1:CLG wiyey+m: 
NEXT w:ORIGIN 9,0,0,639,9, 399: RETURN 
1698 IF INKEY(21)%)-1 THEN RUN 288 ELSE 
o=eJ0Y(9):GOSUB 1798 
17988 IF PEEK(KBAFA)CIE THEN GOTO 1698 
1718 POKE KALCEB,n:RUN 298 
1728 IF INKEY(ZI)C)-1 THEN RUN 288 ELSE 
veJ0OY(@) :G0SUB 1759: G0SUB 1790 
1738 IF PEEK(KBAF4)<16 THEN G0T0O 1728 
1748 POKE r+TESTI8,y),n:INK TEST(9,y) ,n: 
GOTO 1728 
1758 IF o=1l AND y(399-(m/Z)THEN yay+m 
1768 IF o=2 AND y)®+tm/2)ITHEN y=y-m 
177% MOVE 315, y:POKE &949A, INTIRND(LIKLS 
)sCALL K9IA9B:DRAWR 18,0: FOR wei TO 380:N 
EXT:POKE KIA49A,TEST(Q,y)ECALL &KP49B: MOVE 
315, y: DRAWR 
18,0: RETURN 
1788 RETURN 
1798 IF o=4 THEN nen+i 
1800 IF o=8 THEN nen-1 
1818 IF n<d THEN n=26 
1828 IF n)26 THEN n=Q 
1830 FOR x=i TO 6BW:NEXT:CALL &PLA4: BORD 
ER n:RETURN 
1849 GOSUB 2589:POKE &93F3,&C9: POKE KP3F 
6,&39:POKE &93F7, KA: mh=k93: nl =kBB: GOTO 
1978 
1858 GOSUB S99:CLG Q:FOR z=i TO 9ibs(z)= 
"PINSEL "+STRs(z)+" K"+STRElz):NE 
XTın=ei0: 60SUB 2379: vez 
18698 CLG Bin=3:bsll)=e"PINSELSTR 
ICHE"bStDI="PINSELPUNKT E*" 
:GOSUB 2370 
1879 GOSUB 2380: IF PEEK(KPICFI=d THEN us 
4 ELSE IF PEEK(KPICFI=L THEN u=2 ELSE us 
1 
1889 POKE K96EI,v:POKE K96ES,v:POKE &97% 
9,v 
189% POKE &97709 ,u:POKE K96F9,tINTIvV/Z2) Ru 
) 
1908 IF z=2 THEN 1930 
19198 CALL KIBESPECALL KIARASCALL KPZBRLIF 
INKEY(Z1)C>-1 THEN CALL KALAB:RUN 299 
1929 IF PEEK(KB4F4))I6 THEN CALL &9732:P 
OKE &98B7, 253: G0T0 1918 ELSE GOTO 1919 
1939 CALL KABSPICALL KAAMA:CALL KIZBI: IF 
INKEY(Z1)<>-1 THEN CALL KALAB:RUN 299 
1948 IF PEEK(KBAF4) Jal6& THEN CALL &9727: 
POKE %&98B7, 235:60T0 1939 ELSE GOTO 1938 
1938 GOSUB 2389 
1968 IF INKEY(ZI)CD-L THEN RUN 289 ELSE 
G0TO 1968 
1978 POKE %92A9 ,ml:POKE KAZAA,nh:CALL &9 
-ZAB:RUN 209 
1988 n=SiCLG Dibstl)=" 
RE-H T":b$t2)="UM 


GED 


NICHT 
SENKRECHT 
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EHSE"TbSE(CHI="UM WAAGRE 
E A 
E"r:bs(4)e UM BEIDE ACH 


:GOSUB 2379: IF z=2 OR z=4 THEN Irt 


1998 IF z=3 OR z=4 THEN outfel 

2000 GOSUB 108% 

2818 n=3:C1L6 G:bstl)=S ALLE FARB 
EN ":bst2)=" FARBEN AUSBLEN 
DE N":GOSUB 2370:1F z=e2 THEN GOTO 2288 
2820 GOSUB 2359 

2039 GOSUB 2389 

2849 CALL KIBS9:CALL KIADA:CALL &9ZBP: IF 
INKEY(Z1)<>-1 THEN CALL KPLAB:SRUN 298 
2058 IF PEEK(KB4F4)<L6 THEN 2049 

2060 GOSUB 240: yLayıxlax 

2878 CALL KPLB9:CALL &9859:G0SUB 249: MOV 
E x,y:DRAW xi1,y,schp:DRAW xi,yi1:DRAW x,y 
1:DRAW x,y:IF INKEY(Z1)C>-1 THEN CALL 69 
1B9:RUN 209 

208% IF PEEK(&B4F4) )=1& THEN 2078 

ZOO x2mxiyZ2myiCALL KPLBIEhmABS(yl-y2):b 

=ABS(x1-x2):bi=btxmihlehtymi IF b=d OR h= 

8 THEN CALL &P1B9:RUN 299 

21808 b2=bil+(xnikxs) -xs: hanhielyakya)aye 
2118 CALL KAIBI:CALL &9839:G0SUB 249: MOV 
E x,y:DRAWR b2,9,schp: DRAWR 8, h2: DRAWR-b 
2,2:DRAWR 9, -h2:MOVE xi1,yi:DRAW x1,y2: DR 

AW x2,y2:DRA 

W x2,yl:sDRAW xi,yisIF INKEY(Z1)C)-1 THEN 
CALL KPLB9:RUN 208 

2128 IF PEEK(KBA4F4)<C16 THEN 2119 

2130 GOSUB 249: CALL &91B9 

2148 IF xidx2 THEN xrexiixi=x2 ELSE xi=x 
lixrex2 

2158 IF yi)>y2 THEN yosyliyusy2 ELSE yo=y 
Zi yumyli 

2168 zhn=y+hl:zbn=x+bi 

2170 xst=x:IF outf=si THEN ysi=-ysiyheyo: 

yozyu:syuzyh ELSE ysi=ys 

2188 IF Irtt=1 THEN xsi=-xsixhexrixrexii 
xi=xh ELSE xslexs 

2198 FOR yc=yu TO yo STEP ysi 

2288 FOR xc=x1 TO xr STEP xsi 

2218 DI:POKE KBiICB,&4d: pt=TESTixc,yc):PO 

KE KBICB,&LCOH:EI:GOSUB 2238: NEXT; NEXT 

2228 CALL KILAB:GOSUB 2339:G60T0 2119 

2238 IF x>zbm THEN xexstiy=y+(yakym): IF 

y>399 THEN yc=yo 

2248 MOVE x,y:IF pfalpf)=1 THEN 2269 
2258 IF XPOS>639 THEN 2248 ELSE FOR xb=i 
TO xmiDRAWR 8, (ym-i)*ys,pf:MOVER xs,-(y 

m-1)%*ys!NEXT 

2268 xuxt+(xmkxs) 

2278 RETURN 

2269 GOSUB 2980: G0SUB 2339:0RIGIN 9,0,8, 
639,8,47:CL8 Q:0RIGIN 9,9,0,639,8,399:L0 
CATE 3,23: PAPER ®:FOR n=® TO schpiPEN n: 
FOR m=i TO s 


h:PRINT CHRS(143) 5: NEXT:NEXT:LOCATE sh2% » 


LISTING 


2+1,25:PRINT"WENN FERTIG!<ENTER>* 

2298 CALL KIB59IHCALL KSADA:IF INKEY(2UIC 
>=] THEN RUN 209 

230% IF INKEY(1BIC)-1 THEN 2020 

2319 IF J0OY(g)<1I& THEN 2298 

2329 GOSUB 248; LOCATELTESTIx,y)Rsh)+3+an 

2,24 

2330 IF ptatTEST(x,y))=1 THEN pfa(TEST(x 
yI)eB:PRINT CHRSL3ZIELSE ptatTEST(x,y)) 

z1: PRINT CHRS(159) 

2348 FOR x=1 TO 200: NEXTSCALL K91AI:GOTO 
2299 

2359 IF PEEK(KIICFI=Q THEN schp=1Sishet: 

sh2=0; ELSE IF PEEK(KIICF)=2 THEN schp=l: 

sh=38:sh2=20: ELSE schp=3: 5h=9!5h2=$ 

2360 RETURN 

2370 POKE RIA9A,L:CALL &KII9B:DELDI="H A 

UPTME N ü"!zedix=48:y=399:w=INT (409 
-(nktlL6))/tn+Z2))SMOVE x,y 

2388 FOR m=d TO n-1:MOVE x,399- (m+1)%(w+ 
16):PRINT bSim) NEXT m 

2399 030: x=1$: y=399-w IS CALL KILIAISWHIL 

E o<16 

2499 o=JOY(@V: IF o=1 AND 2) THEN zez-1: 

yayt+tnt16 

2zal® IF 0=2 AND zin-1 THEN yey-n-löizazt 
N 

2428 MOVE x,y: PRINT CHRS(243) 33 FOR mel T 

0 399: NEXT 

2438 IF JOY(Q)sd THEN 2330 

24938 MOVE »,y: PRINT CHRS(32); 

2459 WEND:IF z=d THEN RUN 289 ELSE RETUR 

N 

2960 GOSUB 1640: y=299-(m/2) 

2476 IF INKEY(C2I)<SH-1 THEN RUN 298 ELSE 

O=J0OVY A) !GOSUB 1789 

2468 IF o<16 THEN GOTO 249”0 

2490 pt=TEST(O,y) RETURN 

2509 MODE 1:TAG:GOSUR 2I90:CLG Oin=3:bsi 
I=S!STIFTFARBE'TDSCAH="FARB 

E EINGESTEL i T"!GCSUR 2549:60 

SUB 2370: IF 

ze2 THEN GOSUR 2590: RETLUFN 

2510 GOSUB 246M;POKE KOICT,pt:!GETO 2599 

2528 IF FEEKIKALCFIS=O THEN #s=k91DdE ELSE 
IF PEEK{KFICFIeL THEN #3=691D2 ELSE IF 

PEEK (KILCFI=2 THEN #s=t9 109 

2530 RETUPN 

2548 TAGDFFIPAPER A:FEN 1:LOCATE E,2S: FF 
INT*EINGESTELLTE FARBE: ":GOSUB 2828: fs=i 

Ss+tPEEK !ELOLCCH INK 2,PEFFLIFSI PEN 2 

2550 LOCATE 28,28: PRIHT CHPSILITIICHEFGL 

43) ; TAGS RETURH 

2560 TAGOFFIPAPER O:PEN L:LOCATE 17,28: F 

RINT"EINGESTELLT: *ICALL LP6l1:I60SUP DrEc 
Fs=tssPEEFIROSESR): INK Z,FEEKIFS)IGSFEN 2; 

GÜSUR FEzart 

s=ts+PEEK ILOSER):INF 3, FEEHKiFSIIFAFER 3 

ZE70 LOCATE 28, 28: PRINT CHREI2SZISCHRSEIE 

SA): TASIRETURN 


2S8@ CALL KIIES:CALL KILBP:RETURN 

2590 INK 9,95INK 1,265 INK 2,14: INK 3,6:F 
APER 8:PEN 1:BORDER OÖ: RETURN 

2608 IF PEEKIKBE41)=25S THEN GOSUB 2379 
:G0TO 1449 


2618 neld:bst?)="DIRECTOR Y"ibsiß 
)e" FILE LÖSCHE N’!:bENMEe"F IL 
E UMBENENNE N':GOSUR 2379 

2628 IF ze? THEN TAGOFFICLSSODIRILOCATE 
3,25:PRINT’’SPACETASTE DRUC 


K E N"ELSE 2649 
262% IF INKEYSC>" "THEN 2639 ELSE TAG:RU 
N 200 

2649 IF 2<)8 THEN 269% ELSE TAGOFF:CLS:E 
DIR:CALL &PIAA:LOCATE 1,22: PRINT"GEBEN S 
IE DEN NAMEN (MIT EXTENSION) ":PRINT:PRIN 
T: INPUT"DES 

FILES EIN "sbmicL$ 

2650 LOCATE 18,S:PRINT"WOLLEN SIE":LOCAT 
E 15, I0:PRINT UPPERS(bS):LOCATE 15, 1S:PR 
INT’LÖSCHEN (Y / N 

266% a8=UPPERSLINKEYSI:IF ase""THEN 2660 
ELSE IF as="N"THEN 26890 

2679 sERA, &bs 

2680 TAG:RUN 200 

2698 IF 2<)9 THEN 1448 ELSE TAGOFF:CLS:6 
DIR:CALL. KALAA:LOCATE 1,22:INPUT "ALTER 

FILENAME : "ja8:LOCATE 1,24: INPUT "NEUER 
FILENAME : 

";b# 

2709 6REN, 968, 836: TAG:RUN 209 


DESIGNER 


Fortsetzung von Seite 79 


— Freihändig zeichnen — 

Freihändige Zeichnungen können unter diesem Me- 
nüpunkt gestartet werden. Die Genauigkeit der Bild- 
schirmdarstellung ist dabei allerdings im wesentli- 
chen vom Joystick abhängig. Empfehlenswert ist 
deshalb ein Gerät mit Mikroschaltern. 


— Text — 

Nachdem (!) der Text eingegeben wurde, können Sie 
die Schriftart (normal, linksgeneigt, rechtsgeneigt), 
die Höhe (normal, doppelt, dreifach, vierfach, fünf- 
fach) und die Breite (siehe Höhe) bestimmen. Jetzt 
müssen Sie nur noch den Cursor an die gewünschte 
Stelle bringen und den Feuerknopf drücken. 


— Löschen — 

Mit dieser Funktion wird der gesamte Bildschirm ge- 
löscht oder mit einem gewählten Muster überzeichnet. 
Sie können zum Löschen die alte Papierfarbe beibe- 
halten oder eine neue wählen. 


— Modus — 

Hier kann der Bildschirmmodus gewählt werden 

(0, 1, 2). Danach richtet sich auch die Auflösung der 

Ba und die Anzahl der zur Verfügung stehenden 
arben. 
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— Maske — 

Damit können verschiedene Bildpunkte ausgegeben 
werden. Um die Möglichkeiten dieser Funktion 
ganz auszunutzen, ist es ratsam, ein wenig damit zu 
experimentieren. 


— Cursor — 

Unter diesem Menüpunkt verbergen sich mehrere 
Funktionen, die das Aussehen oder die Positionsbe- 
stimmung des Cursors betreffen. ‚Cursor setzen“, 
dient der Festlegung des Startpunktes des Cursors. 
Mit “Strecke halbieren‘ wird ebenfalls ein neuer 
Startpunkt festgelegt. Sie bestimmen 2 Punkte, und 
der neue Startpunkt liegt dann in der Mitte, zwischen 
diesen Punkten. “Pfeil‘“ und ““Kreuz“ bezeichnen die 
Darstellungsform des Cursors. 


— Bild — 
Falls der Cursor bei der Betrachtung eines Bildes 
stört, ist dieser Menüpunkt anzuwählen. 


— Speicher — 

Es kann das Bild, die Muster oder die Attribute (ein- 
gestellter Modus und Farben) abgespeichert oder gela- 
den werden. Es ist ratsam, die Attribute für eine 
spätere Bearbeitung abzuspeichern, um dann nicht 
alles neu einstellen zu müssen. Für den Kassetten- 
betrieb kann die Bandgeschwindigkeit gewählt wer- 
den. Bei der Verwendung eines Diskettenlaufwerkes 
stehen zusätzliche Funktionen zur Verfügung: 
Directory anzeigen, Files löschen oder File umbe- 
nennen. 


— Kopieren — 

Im ersten Untermenü können Sie wählen, ob der Aus- 
schnitt beim Kopieren gedreht werden soll oder 
nicht. Dies kann um die senkrechte, waagrechte oder 
um beide Achsen geschehen. In den nächsten beiden 
Untermenüs können Vergrößerungsfaktoren für 
Höhe und Breite eingestellt werden. 

Das letzte Untermenü erlaubt es zu entscheiden, ob 
alle Farben kopiert werden sollen, oder ob Sie ein- 
zelne Farben beim Kopieren ausblenden wollen. 
Wenn Sie eine oder mehrere Farben beim Kopieren 
ausblenden wollen, erscheint das Bild mit einer 
Leiste der gewählten Farben im unteren Teil. Klik- 
ken Sie nun mit dem Feuerknopf diejenigen Farben 
an, welche Sie beim Abspeichern entfernen wollen, 
entweder auf der Leiste oder im Bild selbst. Sind 
alle Farben gekennzeichnet, dann drücken Sie die 
ENTER-Taste. Der zu kopierende Bildausschnitt 
wird markiert, indem ein Rahmen über diesen ge- 
spannt wird. Dies geht wie bei der Funktion “Rah- 
men“. Es erscheint dann ein zweiter Rahmen in 

der gewählten Vergrößerung. Steuern Sie diesen nun 
an die gewünschte Stelle und drücken Sie den Feuer- 
knopf. Da das Programm die Information aus dem 
zweiten Bildschirm liest, können sich die beiden 
Rahmen beim Kopieren überlappen, ohne daß un- 
erwünschte Ergebnisse auftreten. 


— Farben — 

Die Randfarbe wird eingestellt, indem der Joystick 
nach links oder rechts bewegt wird. Wenn die ge- 
wünschte Farbe erreicht ist, drücken Sie den Feuer- 
knopf. Mit der Funktion “Farben setzen‘ können 
Sie die Farben umdefinieren. Durch Vorwärts- oder 
Rückwärtsbewegen des Joysticks steuern Sie einen 
kleinen Balken auf die zu ändernde Farbe. Dann 


ändern Sie die Randfarbe, durch Links- und Rechts- 
steuern des Joysticks, auf die neue Farbe um. Da- 
nach drücken Sie den Feuerknopf und die Einstel- 
lung ist fixiert. Wenn alle gewünschten Farben geän- 
dert sind, dann kommen Sie mit der SHIFT-Taste 
wieder ins Hauptmenü. 


Wichtige Taste 


Mit >SHIFT< kommen Sie aus den verschiedenen 
Zeichen- und Malfunktionen wieder in das Haupt- 
menü. 

>SPACE< und >ENTER< erfüllen bei den Optionen 
„Füllen“, “Sprühen“, “Pinsel“, ‘“Zeichnen“ und 
“Text“ eine besondere Funktion: >SPACE< kopiert 
den zweiten Bildschirm in den ersten, das heißt, daß 
das zuletzt Gezeichnete wieder gelöscht wird. 
>ENTERX< dagegen kopiert den ersten Bildschirm in 
den zweiten. Der bisherige Bildschirminhalt wird da- 
durch vor einem späteren Löschen mit> SPACE< 
geschützt. Daneben wird> ENTER< noch in den 
Menüpunkten “Muster“ und “Kopieren“ verwendet. 
Die Wirkung ist dort beschrieben. 

>CTRL< wird nur für die Funktion “Strahlen“ be- 
nutzt und ist dort beschrieben. 


BÖRSE 


**** LOHN- UND EINKOMMENSTEUER *** 
Super Jahresausgleich + Steuerkl.-wahl + Rentenertrag + 
Analyse! Für * CPC’s + IBM * Cass. 60,—, Disc. 70,— DM 
Info gg RP Jährl. Aktu. 10,— DM! Horst lichen Niederfeld- 
str. 44, 8072 Manching, Tel. 08459-1669 


Verkaufe orig. Discovery Plus 


von Siren 3“ Diskette, incl. PICO — FORM > 
Discus 1-3 (100 Problemlö- Textverarbeitung 

sungen). Preis VB. 09561/ Textarithmetik ie 
63224 Karteiverwaltung a 
_—— 3PROGRAMME IN * 
Tabellenstar für Schneider EINEM! * 


CPC. Professionelle Sportta- 
bellenverwaltug bis 20 Ver- 
eine m. Eingabeeditor, Sta- 
tistik etc. Disk. 79 DM. J. 
Mickler, Am Shloßpark 44, 
4780 Lippstadt, 02941/ 
21303 


Für CPC 464, 664, 6128 * 
Kass., Disc 3“-5 1/4“ * 
EINFÜHRUNGSPREIS * 
DM 59, — * 
Gratisinfo — Lieferung * 
Dipl.-Ing. Firnhaber * 

* Rehmkamp 8, 23 Kiel 17* 


Suche zum PC 1512 Text- 


KERRRK KHK H HR 


** HÖCHSTPREISE ** 


für gebr. COMMODORE/ yearbeitung (z.B. Starwriter 
SCHNEIDER bei Computer- PC) sowei sonstige Prog. od. 
neukauf bietet C.V.T., Spiele. Angebote an: G. 

55 Trier, Pf 2106 T. 0651/ Strauß, postlagernd, 8868 
16366 Möttingen 


****#* PROGRAMME VON ARNOR ***** 
Siehe SCHN. AKTIV 10/86, S. 82 
PROTEX (d/R) DM 99/158; PRO- 


MERGE (d/R) DM 99/139: MAXAM 
(d/R) DM 99/158; UTOPIA DM 119 
DENISOFT G. Denissen 
Postfach 106421, 28 Bremen 1 
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LAUFSCHRIFT 


Die Nachfrage nach kurzen Listings, die eigene Pro- 
gramme verbessern oder verschönern, ist groß. Dabei 
kommt auch immer wieder der Ruf nach RSX-Befeh- 
len, die das ohnehin sehr gute Basic der CPC-Rechner 
noch weiter verbessern. 

Unser Leser Gerd Kilian schickte uns seine Version 
einer Laufschrift. Gefallen hat uns, daß jeder Bild- 
schirmmodus angesprochen werden kann und, entspre- 
chend dieses Modus, eine farbige Ausgabe erfolgt. 

Das Listing ist mit einer Demonstrationsroutine aus- 
gestattet, die für eigene Programme natürlich entfernt 
werden kann. 

Das Programm Laufschrift ermöglicht Ihnen von 
Basic aus mit Hilfe des RSX-Befehles 

ILAUF (Asciiwert),xp,yp,Länge[ Verzögerung] 

eine ruckfreie Laufschrift in jeder Farbe und in jedem 
Mode zu programmieren. Die Benutzung dieses Be- 
fehles ist relativ einfach. Bei (Asciiwert) gibt man den 
Asciiwert des Zeichens an, welches rechts eingefügt 
werden soll. xp und yp stellen die Koordinaten dar, 
in denen die Laufschrift abrollt. Bei “Länge“ ist die 
Zeichenlänge des Strings einzutragen. Die Werte be- 


»>>>>>> Laufschrift tt 


ITIALEBEIPLOELEFT I ZA NAT HT AR 


c. by 


Gerd Kıilıan 


LELTEITIITIETIET III DZ 
ALLEIII III III I SZ 


ziehen sich jeweils auf die Cursorpositionen, sind also 
Locate-Zuweisungen vergleichbar. Wahlweise kann 
dem Befehl auch “,]“ angehängt werden. Damit ist 
die interne Bildschirmsynchronisation ausgeschaltet 
und es wäre möglich, den ganzen Bildschirm um eine 
Spalte nach links zu verschieben. 

Beispiel: 

FOR A=1 TO 25.iLAUF,64,1,a(Spalten des jew. 
Mode),1:NEXT 

Eine Besonderheit des Programmes ist, daß man es 
durch eine Änderung der Zeile 30 an jede Adresse 
zwischen &4000 und &A500 poken kann. Bei Adres- 
sen die kleiner als &A410 sind, muß allerdings auf die 
Symboldefinition verzichtet werden. Des Weiteren 
sollte vor Verwendung des Befehles noch kein 
Scrolling aufgetreten sein. 

Die Laufschrift kann in eigene Programme übernom- 
men werden, indem man das Demoprogramm zer- 
stört (DELETE 380-) und erst in Zeile 390 mit dem 
Programmieren beginnt. 

Der senkrechte Strich vor dem RSX-Befehl wird durch 
gleichzeitiges Drücken der Shift- und der Klammer- 
affentaste (*@‘“) erreicht. 
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I IHHRHRRHRHHHRHHHHHHHHHHHHHHHHHRHRE 

’%* >> Laufschrift (< written by * 

Gerd Kilian * 

fuer * 

Schneider aktiv % 

CPC 464 * 

ME 3 5 0 2 2 0 2 210 2 2.2.2 2 22 2 2 2 212 2 2 2 2 2 22 2 2 2 2,0 7 

19 ’ 

’ %%%% Bestimmung der Startadresse #* 


ONWUIBWON- 
er 


laufsadr=&kAd8Q ® 

e kommt das Programm ! 

48 IF PEEK(laufsadr)=&C9 THEN 398 ’ 

erpruefen ob schon gepokt 

sg’ 

68 ’ X%%% Programm zum einpoken der Wert 

e xt 

78 adr=laufsadr:IF adr<® THEN adr=adr+25 

6"2 

89 SYMBOL AFTER 256: MEMORY adr-1:5YMBOL 

AFTER 248 ' Zeichendefinitionen moglich 

98 FOR a=adr TO adr+ki167:READ a8 ’ Wert 

Lesen 

188 IF LEN(a$)=2 THEN POKE a,VAL("k"+a$) 
:GOTO 138 ' Adresse ?? Nein, also poken 
119 b=eVAL(a$)+adr: IF b<® THEN b=b+236*2 
’ Ja, also relativen Wert zur Startadr. 
128 POKE a,b-INT(b/256) %256: a=sa+i:POKE a 
‚INT(b/256) ’ addieren und poken 

138 NEXT:CALL adr:POKE adr,&C9:G0T0 398 
’ RSX einbinden 

199 ’ 

159 ’ #%%# Datas fuer Laufschrift KH 
168 DATA Q1,&000A,21,&8914,CD,D1,BC,C9,& 

BBAF,C3,&0018,4C,41,35,C6, 08 

178 DATA 200,020,00,00,FE,04,D8,2E,208,FE,2 

4,28,29,3A,F4,BF,FE,81,20,02 

180 DATA ZE,81,22,K011E,3A,F6,BF,FE,82,D 

8,3A,c8,B1,32,&0120,3A,F8,BF 

218 DATA 3D,11,50,09,21,099,C0,FE,00,28,8 

4,47,19,18,FD,CD,&9144,ED,S5B 

228 DATA FA,BF,1B,47,19,18,FD,3E,BF,BC,D 

9,23, 22,&0122,CD,&9144,ED,SB 

239 DATA F6,BF,21,00,098,47,19,18,FD,2B,2 

2,F6,BF,ED,5B,&2122,19,11,98 

248 DATA 38,19,3E,BF,BC,D9,3A,FC,BF,CD,A 

5,BB,ES,DD,E1,CD,06,B9,CD,93 

259 DATA BB,6F,86,92,CB,3F,CB,14,CB,24,C 

B,3F,10,F6,96,92,CB,3D,CB,3D 

268 DATA CB,14,CB,24,18,F6, 3A,&8129,47,8 

4,2E,21,CB,23,19,FC,CD,&0144 

278 DATA 57,1E,28,ED,33,&9129,45,40,21,& 

2124,3E,928,F5,D3,DD,SE,98,ES 

289 DATA C5,97,CB,23,39,21,B1,CB,39,18,F 

7,77,21,28,00,09,C1,15,28,EC 

2979 DATA E1,D1,23,0D,23,F1,3D,29,DD,ED,4 

B,F6,BF,21,&9124,ES,DD,Ei,ED 

388 DATA 5B,&0120,3A,&B11E,FE,01,28,83,C 

D,19,80,0D5,24,&8122,C5,D5,ES 

319 DATA 54,5D,1B,ED,B2,DD,7E,29,12,D0D,2 


An diese Adress 


Veb 


3,E1,91,00,08,029,D1,C1,1D,29 

329 DATA E8,D1,15,20,06,C9,00,00,00,00,8 

2,20,00,020,20,20,00,00,00,00 

338 DATA 00,00,00,00,20,00,00,00,209,008,8 

2,20, 00,20,00,00,00,20,00,00 

348 DATA 00,29,00,00,E5,2A,&2129,3E,203,9 

5,26,01,CB,24,3D,20,FB,CB,3C 

359 ’DATA 7C,E1,C9,00,200,00,009,00,00,00,0 

2,29,00,00,00,20,20,00,00,00 

36B ° 

379 ' 

389 ’ Kk Demo Kkt* 

385 ’ Titel und Namen 

379 MODE 1:INK 3,14:PEN l:a=6:b=5:c=3d:a 

gan" 

488 FOR i=1 TO 4: ag=ast"))>)>>) 

rift cCccSggc"sNEXT:GOSUB 549 

418 PEN 2: a=5:b=13:c=39: as="c. by 
":G0SUB 549 

428 PEN 3:a=6:b=18:c=30:a$="G er d 

":G0OSUB 349 
439 a=17:b=18:c=22: a$=" 
":60SUB 549 

435 ’ Einrahmung 

448 PEN 2: a=1:b=1:c=49: as=5STRINGS (49, "x" 

):GOSUB 349 

458 FOR i=2 TO 24:L0CATE 1,1: PRINT"*"J:L 

OCATE 48, 1: PRINT"%*"3:NEXT 

468 a=1:b=25:c=49: as=STRINGE (49, "#"):60$S 

UB 549 

470 a=2:b=9:c=38: a$=STRING$ (38, 154) : GOSU 

B 549 

489 a=2:b=11:c=38: a$=STRING$ (38, 154) 608 

UB 349 

485 ' Dauerndes durchlaufen des Zeichens 

atzen und des (c) Strings 

498 a$=" Laufschrift (c) by Gerd 

Kilian fuer jeden Mode geeignet . 

«. in jeder Farbe .„.. Befehl: ölauf,( 

Ascii-Wert),xp,yp,Laenge A, Verzoegerungü 
U} 


Laufsch 


Kilian 


388 LOCATE 1,12 

Sig FOR i=8 TO 255:PEN INT(RND#3) +13 5LAU 
F,i1,5,12,32: NEXT 

528 FOR aa=i TO LEN(a$) :öLAUF,ASC(MID$(a 
%,33,1)),5,18,32:NEXT:G60T0 S18 

539 ' Sub Laufprogramm 

549 FOR aa=i TO LEN(a8®):öLAUF,ASC(MIDS(a 
$,aa,1)),a,b,c:NEXT:RETURN 


Schneider aktiv: 


Jeden Monat 
neue Tips & Tricks 
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MENSCH 
ARGERE DICH 
NICHT 


Vorbild für dieses Spiel war das Brettspiel „Mensch 
ärgere Dich nicht“. Getreu nach diesem Motto dürfen 
Sie den Ärger in Zukunft dem Computer überlassen, 
vorausgesetzt, Sie gewinnen. Da die Regeln wohl be- 
kannt sein dürften, wollen wir uns auf die Unterschie- 
de zum Originalspiel beschränken. 

1. Beim Original können bis zu vier Personen teilneh- 
men, hier spielt der Spieler gegen den Computer. 

2. Bei diesem Spiel gibt es nur drei Spielfiguren, beim 
Original sind es vier. 

3. Bei diesem Spiel kann nicht geschummelt werden. 
Alle Spielzüge werden vom Computer auf ihre Rich- 
tigkeit überprüft. 


Mensch,ärgere dich nicht ! 
Conputer 


DODeee 
Oe0 
000,000 


U U 


"| 
OOD.OOD 
ARMUT U a Ü 
ese [JUL] 
4. Der Computer führt seine Züge automatisch aus. 
Das Programm läuft auf dem CPC 464 und auf dem 
CPC 6128. Erstellt wurde es auf dem CPC 6128 mit 
Farbmonitor. Besitzer eines Grünmonitors müssen 
deshalb eventuell die Ink-Anweisungen (Zeile 110) 
ändern. 
Das Programm erzeugt übrigens einen deutschen Zei- 
chensatz, der sich auf folgenden Tasten befindet: 
ä auf “Klammeraffe“ 
ö auf “Eckige Klammer (auf)“ 
ü auf “Eckige Klammer (zu)“ 
Die Großbuchstaben der Umlaute werden nicht de- 
finiert. 
Ansonsten gibt es zum Abtippen nicht viel zu sagen. 
Durch die REM-Zeilen erklärt sich das Programm von 
selbst. Diese Zeilen können weggelassen werden. 


Viel Spaß und — wie gesagt — „Mensch ärgere Dich 
nicht“. 
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18 RR 


28 '* MENSCH, AERGERE DICH NICHT % 
9 '% geschrieben von: * 
s’% Markus Bier % 
60 ’%* *uer Schneider aktiv % 
a ’%* CPC 664 / 6128 * 


9 ARRRRRRRRRRHBRRRHRRRRRRRRRHHHHBHHFN 

18@ CLS:CLEAR:MODE 1L:RANDOMIZE TIME/338 

118 INK 8,9: BORDER ®:PAPER ®: INK 1,24:PE 

Ni 

128 INK 2,11:INK 3,8:5$PEED INK 8,8 

130 DIM wBl6) ,txL(27) ,FyL(27) ,tx2127), ty 

2(27) 

148 SYMBOL AFTER 64 

150 SYMBOL 64,198,0,129,12,124,204, 118 

169 SYMBOL 91,102,2,60,102,102,1902,68 

17@ SYMBOL 93,192,9,102,192,192,192,62 

189 SYMBOL 254,255, 255,195,195,195,195,2 

35,255 

198 SYMBOL 255,0,68,126,126,126,126,60,0 

280 REM X%%* Konstanten *** 

218 F$=CHR$ (159) +CHRS (154) +CHRS (156) +STR 

ING® (3,8) +CHRS (19) +CHRS( 149) +CHRS (32) + 
CHRS$ (149) +STRINGS (3,8) +CHRS (19) +CHRS 

147) +CHRS (154) +CHRS (153) 

220 DATA 32,32, 32,32, 255, 32,32, 32,32 

239 DATA 255,32,32,32,32, 32,32, 32,255 

249 DATA 255, 32,32,32, 235,32, 932, 32, 255 

259 DATA 255,32, 255,32,32,32, 255,32, 255 

269 DATA 255, 32,255, 32, 255,32, 255, 32,255 

278 DATA 255, 255,255, 32,32, 32, 255, 255, 25 

5 

28@ FOR i=1 TO 6:r$=CHR$(159) +STRINGS$ (3, 

154) +CHR$ (156) +STRING$ (5,8) +CHRS(19) + 
CHRS(149):FOR j=1 TO 9 

298 IF j=4 OR j=7 THEN r$ers+CHRS$(149) +5 

TRING$ (5,8) +CHRS$ (19) +CHRS$ (149) 

388 READ zi z&6=SCHR$(z) ır$er$tz$ 

312 NEXT jirser$+CHRS (149) +STRINGS (5,8) + 

CHR$ (189) +CHR$ (147) +STRINGS (3, 154) +CHRS( 
153) ıw$ki)erss NEXT i 

328 FOR i=1 TO 24:READ Fxiti),FyLti):NEX 

Ti 

33@ DATA 18,23,18,29,18,17,15,17,12,17,1 

2,14,12,11,15,11,18,11,18,8,18,5,21,5,24 
‚5,24,8,24,11,27,11,30,11,39,14,398,17 

‚27,17,24,17,24,29,24,23, 21,23 

348 FOR i=1 TO 245READ Fx2ti),ty2ti)sNEX 

Ti 

359 DATA 24,5, 24,8,24,11,27,11,38,11,38, 

14,39,17,27,17,24,17,24,20,24,23,21,23, 
18,23,18,28,18,17,15,17,12,17,12,14, 

12,11,15,11,18,11,18,8,18,5, 21,5 

369 REM %%%* Titelbild X#* 

378 LOCATE 1,1:PRINT CHRS$(1359) 5 STRINGS (3 

8, 154) SCHRS (156) 5 

388 FOR i=1 TO 23:PRINT CHR$(149)3SPC (38 

ISCHRELLAP)JSNEXT i 

378 LOCATE 1,25:PRINT CHRS$(147) 5; STRINGS$ ( 

38,154) 5 CHRS(133) 5 
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429 LOCATE 8,3:PRINT "Mensch, $rgere dich 
nicht !* 

418 LOCATE 3,7:PRINT "Dieses Spiel ist f 

ür 2 Spieler,d.h." 

428 LOCATE 3,8:PRINT "Du spielst gegen d 
en Computer.” 

438 LOCATE 3,9: PRINT "Es gibt nur 3 Spie 
lfiguren." 

448 LOCATE 3,19:PRINT "Alle anderen Rege 
In sind indentisch" 

458 LOCATE 3,11:PRINT "mit dem Originals 
piel." 

469 LOCATE 3,13:PRINT "Gebe bitte deinen 
Namen ein !" 

478 CLEAR INPUT 

488 LOCATE 3,15: INPUT "",nams 

IF nams="" OR LEN(nam$) >15 THEN 489 

598 REM X%%* Variablen X%* 

s18 FOR i=1 TO 3:plti)=Qi p2li)=d:NEXT i 

529 spieler=® 

539 REM *%*%* Spielfeld X#* 

549 CLS 

558 LOCATE 8,1:PRINT "Mensch,Srgere dich 
nicht !" 

568 FOR y=4 TO 12 STEP 3 

578 LOCATE 17,y:PRINT fs} 

588 LOCATE 17,y+12:PRINT f$} 

598 LOCATE 23, y:PRINT f$j 

6289 LOCATE 23, y+12:PRINT f$;5 

619 LOCATE 11,y+6:PRINT #%5 

628 LOCATE 29, y+6:PRINT #8} 

639 NEXT y 
649 LOCATE 

659 LOCATE 
669 LOCATE 
678 LOCATE 


14,19: PRINT #$; 

14,16:PRINT #%; 

28,4: PRINT f$5 

20, 22: PRINT #%5 

688 LOCATE 26, 18: PRINT f$} 

678 LOCATE 26, 16: PRINT #$5 

788 p$="":FOR i=1 TO 3: p$=p$+CHR$(224):p 
$=p$+" "INEXT i 

718 PEN 2 

728 cx=17-LEN(nams): IF cx>il THEN cx=il 
738 LOCATE cx,21:PRINT nam$ 

748 LOCATE cx,23: PRINT p$ 

758 z=3:FOR y=16 TO 28 STEP 2 

768 LOCATE 21,y:PRINT CHR$(254) :fxLiz+24 
Je2lifyliz+24)=yiz=z-1:NEXT y 

778 PEN 3 

788 LOCATE 27,3:PRINT "Computer" 

798 LOCATE 27,5:PRINT p$ 

889 z=1:FOR y=8 TO 12 STEP 2 

819 LOCATE 21,y:PRINT CHRS(234) : fx2(zr24 
Je2lsty2(z+24)=yi z=z+ti: NEXT y 

828 REM #H% Würfeln K%* 

839 LOCATE 1,7:PRINT SPC(16) 

849 LOCATE 1,8:PRINT SPC(16) 

8359 IF wurf=6 THEN 959 

8629 IF spieler=8 THEN 999 

878 PEN spieler+i 

869 IF spieler=i1 THEN LOCATE cx,Z1: PRINT 
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nams: 60T0 908 

898 LOCATE 27,3:PRINT "Computer" 

928 spieler=zspieler+i:IF spieler)2 THEN 

spieler=i 

918 ON spieler GOSUB 939,948 

928 G0T0 958 

938 PEN 2:LOCATE cx,Z21:PRINT CHRS$(24)jna 

ms} CHR® (24) :RETURN 

948 PEN 3:LOCATE 27,3: PRINT CHRS(24) "Co 

mputer "I CHR®(24) :RETURN 

959 sz=d: FOR co=i TOD 3 

968 IF spieler=i THEN p(co)=pi (co) ELSE 

p(col=p2(co) 

978 IF pico)= THEN sz=esz+1 

9898 NEXT co 

998 IF sz=3 THEN loop=3 ELSE loop=i 

19088 IF sz=@ THEN 1129 

1818 z=9:FOR i=1 TO 3:IF pti)=8 THEN z=z 

+ 

1928 NEXT i 

1839 IF zC>2 THEN 1859 

1848 IF p(1)=27 OR p(2)=27 OR p(3)=27 TH 

EN loop=3 

1858 IF z<)i THEN 1129 

19868 IF pt1)=27 AND p(2)=26& THEN loop=3 

1878 IF pti)=24 AND pt2)=27 THEN loop=3 

1888 IF pi1)=27 AND p(3)=26& THEN loop=3 

1898 IF pti)=26 AND p(3)=27 THEN loop=3 

1188 IF p(2)=27 AND p(3)=24 THEN loop=3 

1118 IF p(2)=26 AND p(3)=27 THEN loop=3 

1128 lo=1:PEN I 

11380 wurf=INT(RND%6) +15 IF wurffi OR wurf 

>6 THEN 1139 

1149 LOCATE 32,28:PRINT w#twurf) 

1158 FOR wei TO 1208:NEXT w 

1168 IF wurf=& THEN 1188 

1178 lo=lo+i:IF lot=loop THEN 1139 ELSE 

IF sz=3 THEN 828 

1189 REM ##%* Zug mäglich ? Hk 

1198 IF pti)+wurf>27 AND p(2) +wurf>27 AN 

D p(3) +wurf>27 THEN GOSUB 2399:G0T0 828 

1288 IF pii)+wurf=p(2) AND p(i)+wurf=p(3 

) AND p(2) +wurf=p(3) THEN GOSUB 2398: 
GOTO 828 

1218 IF pti)+wurf)>27 AND p(2)=8 AND p(3) 

= AND wurft)6 THEN GOSUB 2399:60T0 828 

1229 IF pt2)+wurf)>27 AND p(i)=8 AND p(3) 

= AND wurft)& THEN GOSUB 2399:G60T0 829 

1238 IF pt3) +wurf>27 AND p(1)=9 AND p(2) 

= AND wurft>6 THEN GOSUB 2399:G60T0 828 

1248 IF pti)+wurf)27 AND pt(2) +wurf>27 AN 

D p(3)=8 AND wurft?6 THEN GOSUB 2398: 
GOTO 828 

1258 IF pti)+wurf)27 AND p(3) +wurf>27 AN 

D pt2)=8 AND wurf‘)& THEN GOSUB 2399: 
GOTO 828 

1268 IF p(2)+wurf>27 AND p(3) +wurf>27 AN 

D pt1)=8 AND wurf‘>6 THEN GOSUB 2398: 
GOTO 828 

1278 IF p(i)+wurf=p(2) AND p(2) +wurf)27 


AND p(3)=8 AND wurf(>6 THEN GOSUB 2399: 
GOTO 829 

1288 IF pti)+wurf=p(3) AND p(3) +wurf)27 

AND p(2)=9 AND wurf()& THEN GOSUB 2399: 
GOTO 828 

1298 IF p(2)+wurf=sp(i) AND p(1)+wurf)27 

AND p(3)=8 AND wurf>6& THEN GOSUB 2399: 
GOTO 828 

1388 IF pt2)+wurf=p(3) AND p(3) +wurt)27 

AND p(i)=8 AND wurft)& THEN GOSUB 2398: 
GOTO 828 

1318 IF pt3)+wurf=p(1) AND p(i)+wurf)27 

AND p(2)=8 AND wurf‘>& THEN GOSUB 2398: 
GOTO 828 

1328 IF pt3)+wurf=p(2) AND pt(2) +wurf)27 

AND pti)=8 AND wurft)& THEN GOSUB 2399: 
GOTO 828 

1339 IF p(i)+wurf>27 AND p(2) +wurf=p(3) 

AND p(3) +wurf>27 THEN GOSUB 2398: G0T0 
828 

1348 IF ptL)+wurf>27 AND p(3) +wurf=p(2) 

AND p(2) +wurf>27 THEN GOSUB 2398: G60T0 
828 

1358 IF p(2)+wurf>27? AND pii)+wurf=p(3) 

AND p(3) +twurf>27 THEN GOSUB 2398: G0T0 
828 

1368 IF pi2)+wurf>27 AND p(3) +wurfsep(l) 

AND p(i)+wurf>27 THEN GOSUB 2398: 60T0 
828 

1378 IF pt3) +wurf)27? AND p(i)+wurfsp(2) 

AND pt2) +wurf>27 THEN GOSUB 2398: 60T0 
828 

1388 IF p(3) +wurf>27 AND p(2) +wurf=pt1) 

AND pti)+wurf>27 THEN GOSUB 2399: G60T0 
828 

1398 IF nc=8 THEN stein=® ELSE nc=Q 

1498 IF spieler=2 OR flag=-i THEN 1468 

1419 i=1 

1428 IF pti)=9 AND wurf=6 THEN stein=i E 

LSE IF i(3 THEN i=i+1:60T0 1429 

1438 IF stein=® THEN 1468 

1448 #1eß:FOR i=1 TO 3:IF pti)=L THEN fl 

=-| 

1458 NEXT i:IF #l=8 THEN 1538 

1468 IF tlag=d THEN IF spieler=1 THEN 15 

18 ELSE IF flag=8 THEN GOSUB 2549: G0T0 
1559 

1478 +lag=d:hv=p (stein) +wurf 

1488 IF hvc>p(1) AND hv<>p(2) AND hvc>pt 

3) THEN 1559 

1498 tlag=-lLince-i 

1598 IF spieler=2 THEN GOSUB 25498:60T0 1 

558 

1518 LOCATE 1,7:PRINT "Stein (1-3) ? * 

1528 GOSUB 2468 

1538 CLEAR INPUT: fehler=8 

1548 stein=VAL(INKEYS):IF stein<i OR ste 

in?3 THEN 1348 ELSE LOCATE 14,7: PRINT 
stein 

1559 IF wurf=6& AND p(stein)=8 THEN 1568 
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ELSE 167% 

1568 IF spieler=1 THEN pi(stein)=1 ELSE 
p2(stein)=1 

15378 pistein)=i 

1588 IF spieler=i THEN Ix=cx:1y=23 ELSE 
Ix=27:1y=35 

1599 Ix=1x+stein+(stein-I)-1 

1888 LOCATE Ix,1y:PRINT * " 

1618 IF spieler=i THEN sx=fxLtl)isy=tyli 
1) ELSE sx=fx2(1)isy=ty2(1) 

1828 PEN spieler+i 

1638 LOCATE sx,sy:PRINT CHR$(224) 

1649 flag=-Lince-i1 

1658 ret=-1:605SUB 1910: ret=d 

1668 GOTO 959 

1678 IF wurf‘>& AND p(stein)=@ THEN GOSU 
B 2418:60T0 1518 

16888 ON stein GOSUB 2420, 2440, 2468 

1698 IF tehler‘?d THEN GOSUB 2419:G0T0 1 
s18 

1788 IF pistein)+wurt>27 THEN GOSUB 2418 
:G0T0 1518 

1718 FOR i=p(stein) TO p(stein)+wurf-1 
1728 GOSUB 2489 

1738 PEN spieler+i 

1748 LOCATE px,py:PRINT CHR$(224) 

1758 FOR w=1 TO 288: NEXT w 

1789 pr&=" ":IF p(stein)>24 THEN pr$=CHR 
$(254) 

1778 PEN spielert+i 

1788 LOCATE px,py:PRINT pr$ 

1798 ptstein)=pistein)+i 

1888 IF spieler=1 THEN pl (stein)=pi(stei 
n)+i ELSE p2(stein)=p2(stein)+i 

1818 NEXT I 

1828 GOSUB 2488 

1838 PEN spielert+i 

1848 LOCATE px,py:PRINT CHRS$(224) 

1858 sst=stein:FOR stein=i TO 3 

1868 GOSUB 2590: IF px=9® THEN 1888 

1878 PEN 2:LOCATE px,py:PRINT CHRS$(224) 
1888 GOSUB 2529: IF px=8 THEN 1988 

1898 PEN 3:LOCATE px,py:PRINT CHRE(224) 
19908 NEXT stein:stein=sst 

1918 REM *%*%* Jemand geworfen ? Hk 

1929 a=1:IF p(stein)>24 THEN 2189 

IF spieler=2 THEN 2919 

IF pZ(a)=p(stein)-i2 OR p2(a)=p(ste 
in)+12 THEN 1978 

1958 IF a<3 THEN a=sat+t1:60T0 1949 

1968 GOTO 2189 

1978 IF p2(a)=8 OR p2(a))24 THEN 2189 
1988 p2(a)=Q: ix=27+a+la-i1)-1:ly=S 

1998 PEN 3:LOCATE 1Ix,1y:PRINT CHR$(224) 
20993 GOTO 2978 

2818 IF pl(a)=pistein)-12 OR pl(a)=p(ste 
in)+1L2 THEN 2949 

2828 IF a3 THEN a=a+1:!60T0 2019 

22838 GOTO 2189 

2848 IF pl(a)=8 OR plta)?24 THEN 2188 
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2059 pl(a)=dilx=scxtar(a-1)-1:1y=23 

2868 PEN 2:L0OCATE Ix,1y:PRINT CHR$(224) 
2878 LOCATE 1,7:PRINT SPC (16) 

20888 LOCATE 1,7:PRINT "Stein"jaj "geworfe 
n" 

20899 sst=stein:FOR stein=1 TO 3 

2100 GOSUB 2598: IF px=d THEN 2129 

2118 PEN 2:LOCATE px,py: PRINT CHR$(224) 
2120 GOSUB 2520: IF px=8 THEN 2149 

2138 PEN 3:LOCATE px,py:PRINT CHR$(224) 
2148 NEXT stein:!stein=sst 

2159 SOUND 7,758, 100: SOUND 7,956, 19% 
21628 FOR w=i TO 2599: NEXT w 

2178 LOCATE 1,7:PRINT SPC (16) 

2189 IF ret=-i THEN RETURN 

2198 REM *%# Spiel zu Ende ? *#* 

2208 IF pt1)c25 OR p(2)<25 OR p(3)<25 TH 
EN GOTO 828 

2218 LOCATE 1,7:PRINT SPC (16) 

222% INK spieler+1,6,26:PEN spieler+i 
2239 IF spieler=i THEN p$=nam$ ELSE p$=" 
Computer" 

2248 LOCATE 1,3:PRINT p®:PEN 1 

2258 LOCATE 1,6:PRINT "hat gewonnen." 
2268 FOR i=1 TO 3 

2278 SOUND 7,956, 30: SOUND 7, 758,39 

2289 SOUND 7,638, 30: NEXT i 

2298 SOUND 7,638, 60 

2308 FOR w=i TO 2909:NEXT w 

2319 IF spieler=1 THEN ik=11 ELSE ik=8 
2328 INK spieler+i,ik 

2330 LOCATE 1,8:PRINT "Neues Spiel ?" 
2349 CLEAR INPUT 

2359 a$®=UPPERS(INKEYS):IF as<)"Y" AND as 
<>"J" AND ast>"N" THEN 2359 

2360 IF as=z"Y" OR as="J" THEN INK 2,11:1 
NK 3,8:60T0 398 

2370 CALL 8 

2388 END 

2399 REM #%% Zug unmäglich K*%* 

2498 LOCATE 1,4:PRINT "Kein Zug"ITAB(L)} 
"mäglich !":FOR w=i TO ZOB@:NEXT wi 

LOCATE 1,4:PRINT SPC (8) J TAB(L) SPC 

9) RETURN 

2418 LOCATE 1,4:PRINT "Das geht nicht !" 
:FOR w=1 TO 2889: NEXT w:LOCATE 1,4: PRINT 

SPC (16) :RETURN 

2428 IF p(i)+wurfep(2) OR pli)+wurfep(3) 
THEN #tehler=-i 

2438 RETURN 

2448 IF pt2)+wurf=p(1) OR p(2) +wurf=p(3) 
THEN fehler=-1 

2458 RETURN 

2468 IF p(3)+wurf=p(1) OR p(3) +nurf=p(2) 
THEN fehler=-i 

2478 RETURN 

2489 ON spieler GOSUB 2599, 2528 

2499 RETURN 

2599 px=txLiplistein)):py=fyLiplistein)) 
2518 RETURN 
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2328 px=etx2(p2(stein)):py=ty2(p2istein)) 

2538 RETURN 

2548 REM HH Zugautomatik Hk 

2559 stein=dii=l 

2568 IF pti)=9 AND wurf=6 THEN stein=si E 

LSE IF it3 THEN i=i+1:60T0 2568 

2578 IF stein=d THEN 2698 

2588 +i=8:FOR i=i TO 3:IF pli)=L THEN fl 

=-| 

2598 NEXT i:IF f1=9 THEN RETURN 

2688 FOR i=1 TO 3:hvti)=pli)+murtsNEXT i 

2618 mx=8:FOR i=l TO 3:IF hv(i)>27 OR hv 

(i)=p2(1) OR hvti)=p2t2) OR hv(i)=p2(3) 
THEN 2638 


IF mx<hv(i) THEN mxehv(i) 
NEXT i 
FOR i=1 TO 3:1F mx=ehv(i) THEN stein 


NEXT i:RETURN 

REM ##%# Steine anzeigen Pe 
sst=stein:FOR stein=si TO 3 
ps$=STR$(stein):ps$=RIGHT$(ps$, 1) 
GOSUB 2599: IF px=9 THEN 2719 

PEN 2:LOCATE px,py:PRINT ps# 
NEXT stein:!stein=sst:!PEN 1 
RETURN 

END 


CPC UNIVERSALDATEI 


“CPCDAT“ ist ein universelles Dateiverwaltungspro- 
gramm für alle CPCs mit Floppylaufwerk, bietet je- 
doch gegenüber herkömmlichen Dateiverwaltungen 
zwei entscheidende Vorteile: 

Der Umfang der Datei wird nur durch die Kapazität 
des Diskettenlaufwerkes begrenzt, beim Anlegen einer 
Datei muß keine Maximalzahl der Datensätze angege- 
ben werden. Erreicht wird dies durch Ablage der Da- 
tei in einem reservierten Speicherbereich von 20000 
Bytes. Ist der Bereich mit Daten gefüllt, speichert das 


Datei: MUSTR 
Datentantige. 29 
FileNr.; 0 LM 
151.28:.3:4- 541 


DATENSATZNR: 
INTERPRET 
IT 
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DAUER 83:47 
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QUALITAET ++ 


Programm die Daten ab und legt ein weiteres Daten- 
file an. Die Datei erweitert sich also automatisch. 

Der Benutzer muß sich nicht um die verschiedenen 
Datenfiles kümmern, denn das Programm lädt sich 
selbst das jeweils benötigte File. Durch dieses Verfah- 
ren werden die im Speicherbereich der Hobby-An- 
wendung in der Mehrzahl vorkommenden Dateien 

bis 20000 Bytes komplett im Speicher gehalten und 
können im Direktzugriff schneller bearbeitet wer- 
den als bei relativen Disketten-Dateiverwaltungen. 


Yen/aendern sortieren 
) Datei dupchsehen ‚alghern 


) neye Liste 


LISTING 


Andererseits besteht die Möglichkeit, auch sehr um- 
fangreiche Dateien zu verwalten, was mit Program- 
men, die für Dateien nur die freie RAM-Kapazität 
des Rechners nutzen, nicht möglich ist. 

Das Programm unterstützt neben der Ausgabe kom- 
pletter Datensätze auch die Ausgabe von Daten in 
Listenform. Eine Liste kann bis zu 5 Spalten ha- 
ben, und die Zuordnung der Datenfelder zu den 
Spalten der Liste ist von Fall zu Fall frei veränder- 


ar. 
“CPCDAT“ besteht aus dem Initialisierungspro- 
gramm CPCDAT und dem eigentlichen Dateiverwal- 
tungsprogramm DATPROG, das von CPCDAT aus 
gestartet wird. Diese Aufteilung ist aus Speicherplatz- 
gründen notwendig. Aus dem gleichen Grund mußte 
auch auf Erläuterungen im Programmlisting verzich- 
tet werden. 


Datei-Organisation 


Eine Datei besteht aus mindestens einem Datenblock 
von 20000 Bytes, der sich im RAM von Adresse 
20501 bis 40500 erstreckt, und einer Parameterdatei 
in Form von Variablen, die zum größten Teil beim 
Anlegen einer Datei festgelegt werden. Die Inhalte 
der eingegebenen Datensätze werden als ASCII-Code 
unmittelbar hintereinander in den Datenblock ge- 
schrieben. Ist der RAM-Bereich erschöpft, wird der 
erste Datenblock als File 1 automatisch abgespeichert 
und ein neuer Datenblock (File 2) angefangen. 

Ist später ein Zugriff auf File 1 nötig, wird automa- 
tisch wieder umgeladen. Dabei wird File 2 gesichert, 
falls es verändert wurde (Eingabe bzw. Änderung von 
Daten). Auf diese Weise kann eine Datei, bedingt 
durch die Diskettenkapazität, maximal 7 Datenfiles, 
also 140000 Bytes, umfassen. 


Hauptmenü 


Aus dem Hauptmenü heraus werden die einzelnen 
Funktionen von CPCDAT angewählt. Durch Drücken 
einer der Zahlen 1 bis 9 wird der entsprechende 
Menüpunkt vorgewählt und beginnt zu blinken. Die 
Vorwahl kann durch Drücken einer anderen Zahl kor- 
rigiert werden. Bei Bestätigung der Vorwahl durch 
die ENTER-Taste wird die jeweilige Funktion aufge- 
rufen. Befindet sich keine Datei im Speicher, kann 
nur “Datei anlegen“, “Datei laden“ oder Ende“ 
aufgerufen werden. 


Datei anlegen 


Nach der Eingabe des Namens der neuen Datei wer- 
den die Anzahl der Datenfelder pro Datensatz sowie 
deren Bezeichnungen und Längen eingegeben. Da- 
nach ist eine Standardliste zusammenzustellen. Hier 
können bis zu 5 Datenfelder angegeben werden, de- 
ren Inhalte bei einer späteren Listenausgabe von Da- 
ten in einer Zeile dargestellt werden sollen. Soll die 
Liste weniger als 5 Spalten haben, so ist bei der Fra- 
ge nach einer weiteren Datenfeld-Nr. einfach nur 
ENTER einzugeben. Die Zusammenstellung der 
Liste kann über den Menüpunkt “neue Liste“ jeder- 
zeit geändert werden. Nach dem Laden der Datei ist 
jedoch immer die beim ersten Anlegen der Datei be- 
stimmte Standard-Liste gewählt. 

Die Feldnummern für die momentane Listenzusam- 
menstellung werden im Dateiinformations-Fenster 
links oben auf dem Bildschirm, hinter der Abkür- 
zung LS, ständig angezeigt. Dieses Fenster informiert 
auch über die Anzahl der angelegten Datensätze 


sowie über das File der Gesamtdatei, das sich zur Zeit 
im Speicher befindet. 


Neuer Datensatz 


Bei Aufruf dieses Menüpunktes wird die Datei um ei- 
nen Datensatz nach hinten erweitert, die Eingaben für 
die Datenfelder werden vom Programm abgefragt. Im 
Gegensatz zum normalen INPUT-Befehl werden auch 
Kommas und Leerzeichen an jeder beliebigen Stelle 
eines Eingabestrings akzeptiert. 


Suchen und Ändern 


In diesem Programmteil können Datensätze ausgege- 
ben oder geändert werden, und die Datei kann nach 
Datensätzen durchsucht werden, die bestimmte Krite- 
rien erfüllen. Der Benutzer wird durch Abfragen ge- 
führt, so daß nicht alle Abfragen im Detail erklärt wer- 
den müssen. Zum Durchsuchen der Datei können bis 
zu 4 Suchbegriffe gleichzeitig angegeben werden. Es 
werden dann nur die Datensätze ausgegeben, die alle 
Suchbegriffe in den entsprechenden Datenfeldern ent- 
halten. Sollen weniger als 4 Suchbegriffe verwendet 
werden, so ist die Frage nach dem Datenfeld für einen 
weiteren Suchbegriff einfach mit ENTER zu beantwor- 
ten. Die Suche beginnt immer beim höchsten (= letz- 
tem) Datensatz. Soll sie nicht bis hinunter zum Daten- 
satz 1 durchgeführt werden, kann die Nummer des 
untersten zu durchsuchenden Datensatzes eingegeben 
werden, andernfalls ist die entsprechende Abfrage mit 
ENTER zu beantworten. 

Folgende Arten von Suchbegriffen sind möglich: 


— Strings — 

Alle Suchbegriffe, die nicht mit “=“*, *>““ oder “<“ 
beginnen, werden als String interpretiert. Der Suchbe- 
griff gilt als gefunden, wenn ein Datensatz im entspre- 
chenden Datenfeld den Suchbegriff an irgendeiner 
beliebigen Stelle enthält. Dabei wird Groß- und Klein- 
schreibung nicht berücksichtigt. 


— Vergleiche — 
Alle Suchbegriffe die mit =“, >“ oder “<‘‘ begin- 
nen, werden als numerische Vergleiche interpretiert. 
Dem Vergleichsoperator muß eine Zahl folgen. Der 
Suchbegriff gilt als gefunden, wenn ein Datensatz am 
Anfang des entsprechenden Datenfeldes eine Zahl ent- 
hält, die das eingegebene Vergleichskrterium erfüllt. 
In der Funktion “Suchen“ wird die Ausgabe der ge- 
fundenen Datensätze normalerweise in Listenform 
durchgeführt, wobei am linken Bildschirmrand die 
Datensatz-Nummer angegeben wird. Eine Umschal- 
tung auf Ausgabe kompletter Datensätze ist mög- 
lich (siehe nächster Absatz). Außerdem kann ein 
Drucker zugeschaltet werden. Bei Listenausgabe gibt 
der Drucker einige Daten mit aus, die auf dem Bild- 
schirm nicht angezeigt werden. Es handelt sich dabei 
um die eingegebenen Suchkriterien und die Erläute- 
rungen der einzelen Spalten der Liste. 
Immer, wenn das Programm die Eingabe eines ein- 
zelnen Buchstabens als Antwort auf eine Abfrage 
erwartet, sind die in einem Zusatzfenster einge- 
blendeten Control-Befehle wirksam: 
— CTRL+H führt zurück ins Hauptmenü 
— CTRL+L schaltet Listenausgabe für Funktion 
“Suchen“ ein oder aus. Der jeweilige Status dieses 
„Schalters‘‘ wird invertiert angezeigt. 
— CTRL+P schaltet die Druckerausgabe ein oder 
aus. Der jeweilige Status wird invertiert angezeigt. 
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Beim Ändern eines Datensatzes werden alle Datenfel- 
der nacheinander abgefragt. Soll der alte Inhalt un- 
verändert bleiben, kann mit ENTER weitergegangen 
werden. 

Bei einer Änderung ist folgendes zu beachten: 

— Teile des alten Datenfeldinhaltes können mit 
der COPY-Taste übernommen werden. 

— Im Gegensatz zum normalen INPUT-Befehl werden 
sämtliche Leerzeichen der Neueingabe berücksich- 
tigt (wichtig zum Löschen von Datenfeldern), und 
auch Kommas werden akzeptiert. 

— Wenn nur der Anfang geändert werden soll, muß 
der Rest des Feldinhaltes nicht wieder neu einge- 
geben werden. Der neue Feldinhalt ist genau, wie 
er sich in der Bildschirmzeile darstellt, egal, bis wo- 
hin der Cursor bewegt wurde. 


Sortieren 


Der Menüpunkt “Sortieren‘“ ermöglicht eine Sortie- 
rung aller Datensätze des Datenfiles, das sich gerade 
im Speicher befindet. Das Sortieren erfolgt anhand 
der Inhalte eines zu benennenden Datenfeldes ent- 
weder in steigender (unterster Wert im untersten 
Datensatz) oder in fallender Reihenfolge. Es 

wird nach ASCII-Codes sortiert, so daß automatisch 
je nach Feldinhalt eine alphabetische Folge oder eine 
Zahlenfolge entsteht. Groß- und Kleinschreibung 
werden bei der Sortierung gleichwertig behandelt. 
Die Sortier-Routine ist in Maschinencode geschrieben 
und deshalb sehr schnell. 


Neue Liste 


Oft ist es erforderlich, Datensatzinhalte in einer Liste 
ausgeben zu lassen, deren Zusammensetzung nicht 
mit der beim Anlegen der Datei definierten Standard- 
liste übereinstimmt. Mit dem Unterprogramm “neue 
Liste“ ist eine Umstellung der Liste jederzeit möglich. 
Die Eingabe erfolgt wie bei “Datei anlegen“, und die 
neue Zusammensetzung wird 'im Fenster links oben 
am Bildschirm angezeigt. Die Standardliste wird hier- 
von nicht beeinflußt, beim nächsten Laden der Datei 
ist also wieder die Standardliste eingestellt. 


Datei durchsehen 


Dieses Unterprogramm gibt alle Datensätze in Listen- 
form auf dem Bildschirm aus, beginnend mit dem 
höchsten Datensatz. Soll nicht am Ende der Datei be- 
gonnen werden, kann der oberste Datensatz für die 
Auflistung eingegeben werden, andernfalls ist die ent- 
sprechende Abfrage mit ENTER zu beantworten. 


Datei laden 


Es wird eine neue Datei zur Bearbeitung in den Spei- 
cher geladen. Besitzt diese Datei mehrere Datenfiles, 
lädt das Programm das File mit der höchsten Num- 
mer. Befindet sich beim Aufruf von “Datei laden“ 
bereits eine Datei im Speicher, wird diese automa- 
tisch gesichert, falls an ihr seit dem Laden oder dem 
letzten Sichern irgendeine Veränderung vorgenom- 
men wurde. 


Sichern 


Bei Aufruf eines Menüpunktes wird das im Speicher 
befindliche Datenfile sowie die Parameterdatei der 
bearbeitenden Datei gesichert. Damit nicht ein großer 
Teil der Diskettenkapazität durch “BAK‘“-Dateien 
verschenkt wird, werden bei jedem Sichern alle 


94 


LISTING 


Dateien mit dem Zusatz “BAK“ von der Diskette ge- 
löscht. Dies gilt übrigens auch für jede während des 
Programmablaufs automatisch ausgelöste Sicherung. 


Ende 


“CPCDAT“ sollte grundsätzlich nur über diesen Menü- 


punkt und nicht über ESC oder durch Ausschalten 


des Rechners verlassen werden. Bei Aufruf von “Ende“ 


wird nämlich automatisch eine Sicherung von Daten- 
file und/oder Parameterdatei durchgeführt, falls seit 
dem Laden bzw. Sichern an einer der Dateien etwas 
verändert wurde. 


Deutscher Zeichensatz 


Wer für “CPCDAT“ einen deutschen Zeichensatz ha- 


bem möchte, kann dies einfach erreichen, indem er 
das Initialisierungs-Programm mit einer bereits veröf- 
fentlichten Routine erweitert. MEMORY- und SYM- 
BOL AFTER-Befehle müssen aber unbedingt aus 
dieser Routine entfernt werden, da sie bereits in der 
Universaldatei enthalten sind. Die Symbole 95 und 
96 dürfen nicht umdefiniert werden, denn sie wer- 
den zur Überlistung des INPUT-Befehles bezüglich 
Kommas und Leerzeichen benötigt. 


19998 ERHHRRRRHRRHHHHHHRIRHSHHRAIHHHEK 


1905 ’%* CPC DATEIVERWALTUNG * 
1919 '* VON * 
1815 '%* RAINER PECKSEN * 
1928 '* FUER * 
1998 '%* SCHNEIDER AKTIV * 
1995 '%* LADEPROGRAMM * 
1046 '%* CPC 464/669 /6128 * 


EIER ERDEEREREERERN 
1968 INK 1,2S:INK @,1:PAPER :PEN L:BORD 
ER 1:MODE 2 

1979 WINDOW #1,2,79,7,24:WINDOW #2, 38,88 
‚3,5:WINDOW #8,21,88,3,5 

1989 WINDOW #3,1,19,1,5:WINDOW #4, 21,36, 
3,5:WINDOW #5, 21,88, 1,1 

1099 WINDOW #6,37,37,3,5 


1198 PAPER W1,0: PAPER #8, L:PAPER #2,1:PA 
PER #3,1:PAPER #4,1:PAPER #5, 1 

1118 PAPER #6,0 

1128 PEN #L,1:PEN #0,0: PEN #2,0: PEN 43,0 
:PEN #4,0:PEN #5, 9: PEN #6, 1 

1139 CLSSCLS HL:ICLS #3:CLS 43 

1148 PLOT 8,0,1:DRAW 639,0: DRAW 639, 313: 
PLOT 638,0: DRAW 638, 313: DRAW 8,313 

1159 DRAW 8,8: PLOT 1,9:DRAW 1,313 

1168 PRINT #5," CPC-DATEIVERWALTUNG V 
ersion 2,3 (C) 1986 R.Pecksen"; 

1178 PRINT #3: PRINT #3," Datei: ":PRINT # 
3," Datensaetze: ":PRINT #3," File-Nr,:" 
i188 PRINT #3," L8"j 

1198 IF PEEK(49581)=25 THEN 1220 

1282 SYMBOL AFTER 32:POKE 48591, 25 

1218 MEMORY 20398: 0PENOUT "dummy": MEMORY 
HIMEM- 1: CLOSEQUT 

1228 SYMBOL 96,0,2,0,2,0,0,24,8 

1238 SYMBOL 95,0,09,2,2,0,24,24,48 

1248 WINDOW #3,18,79,7,24: PAPER #3, 8: PEN 
#S,1 

1259 FOR zadr=k9E9B TO KPFAF:READ a8: POK 
E zadr ,VAL("K"+a8) :NEXT 

1268 DATA DD,56,01,DD,SE, 20, DD, 66 

1279 DATA 03,DD,6E,82,DD, 46,25,DD 

1269 DATA 4E,204,ED,B9,C9,00,00,20 

129% DATA 00,AF, 32,36, 9E, 3A, 37, PE 

1308 DATA FE,81,CD,93,9F,CA,C8,9E 

1318 DATA B8,CA,D?,9E,DA,CF,9E,C® 

1328 DATA B8,CA,D7,9E,DA,C?,9E,3E 

1339 DATA 81,32,36, 9E,C3,C7,9E,8D 

1349 DATA CA,C?,9E,19,23,C3,B3,9E 

1359 DATA 00,00,00,009, 2A, 3A,PE,ED 

1368 DATA SB,40,9E,AF,ED,32,22,3C 

1378 DATA 9E,ED,SB, 3A, PE,ED,S3,3E 

1389 DATA 9E,2A,3C,PE,ED,SB,42,9E 

1398 DATA 19,EB,2A,3E,9E,ED,4B, 4? 

1998 DATA 9E,29,3A,38, 9E,4F,CD,Bi 

1918 DATA 9E,3A,36, 9E,FE,21,C2,1iF 

1929 DATA 9F,2A,3C,9E,22,3E, PE,2A 

143% DATA 3C,9E,ED,SB,48,PE,AF,ED 

1949 DATA 32,22,3C, 9E,EB, 21,15, 30 

1958 DATA AF,ED,S2,CA,F9,9E,DA,F? 

1468 DATA PE,2A,3E,PE,ED,SB,3A,PE 

1978 DATA AF,ED,S2,02,66, 9F,2A,3A 

148% DATA 9E,ED,SB,48,9E,AF,ED,SZ 

1498 DATA 22,3A,9E,ED,32,22,3C,PE 

1308 DATA 21,15,50,ED,SB,3A, 9E,AF 

1518 DATA ED,S2,DA,Fi,9E,C9,ED,4B 

1528 DATA 49, PE,2A,3E,9E,11,74,48 

1538 DATA ED,B@,ED,4B,48,PE,2A, 3A 

1549 DATA 9E,ED,SB,3E,9E,ED,B@,ED 

1558 DATA 45,498, 9E,21,74,48,ED,SB 

156% DATA 3A,PE,ED,B2,C3, 46,9F,08 

1578 DATA 00,09,20,00,08, ?E,FE, 61 

1588 DATA DA,9D,PF,D6, 28,47, 1A, FE 

1598 DATA &1,DA,As,9F,D6,20,C05,47 

1699 DATA 3A,37,PE,FE,01,78,C1,C9 


161@ RUN "DATPROG, BAS" » 
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1999 UHR HRRHRRARBHHRHRHRRRRSHHRHHHHHNE 
1881 ’* CPC DATEIVERWALTUNG * 
10992 '* HAUPTPROGRAMM * 
18983 '* VON * 
1004 ’* RAINER PECKSEN * 
1885 ’%* FUER * 
1006 ’* SCHNEIDER AKTIV * 
1807 '%* CPC 464/664/6128 * 
1818 HHHHRHAHHHBRHHRHRHHRHHHHHBHHBHRE 


1828 DEFINT a-w:DIM menus (9) :menus(i)="D 

atei anlegen";menus(2)="Datei laden" 
10938 menus(3)="neuer Datensatz":imenu®(4) 

s"suchen/aendern" 

1842 menus(S)="Datei durchsehen" :menus (6 
)Ja"neue Liste":menuß(?)="sortieren" 

1959 menus(7)="sortieren":menuß(8)="sich 

ern":menuß(9)="Ende" 

1968 DIM mpos(9,2)inpos(i,i)=6inpos(1,2) 

siimpos(2,l)=64:mpos(2,2)=2:mpos(3,1)=6 
1878 mpos(3,2)=3:mpos(4,1)=28:mpos(4,2)= 
limpos (3,1) =28:mpos (3,2)=2 

1889 mpos(6,1)=28:npos (6, 2)=3:mpos(7,1L)= 

Slimpos(?7,2)=L:impos (8, l)=$1 

1898 mpos(8,2)=2:mpos(9,1)=S1:mpos(9,2)= 
3 

1188 DIM teldlang(i16):DIM fFeldnam®(14) :D 
IM tabel (5):DIM tabels(5) 

4118 DIM suchstr@e(4):DIM suchfeld(4) : DIM 
numver (4) 

1128 pfileaend=2: tileaend=d 

1138 CLS:PRINT: INPUT " Bitte Datum einge 
ben (8 Zeichen): "Idatum® 

1149 datums=LEFT#(datum®, 8) 

113g 

1168 CLS:PRINT " (1) Datei anlegen ( 
4) suchen/aendern (7) sortieren" 


1178 PRINT " (2) Datei laden (5) D 
atei durchsehen (8) sichern" 
4188 PRINT " (3) neuer Datensatz (6) nn 


eue Liste (9) Ende" 

1198 ret=2 

1298 as=1NKEY#: IF au="" THEN 120% 

1218 IF VAL(aw)<i OR VALtas)>9 THEN 1208 
ELSE wahl=VAL (a8) 

1228 EVERY 28 GOSUB 3468 

1239 a®=INKEY#S: IF as="" THEN 1230 

1248 IF VAL(aw)<1 OR VALta®)>9 THEN 1279 
1258 n=REMAIN(®): PAPER 1:PEN B:LOCATE mp 
ostwahl, 1) ,mpos(wahl,2) 


1268 PRINT menus(wahl)j:wahl=VAL (as) :G0T 


0 1228 

1278 IF ASC(aw)<>13 THEN 1239 

1288 n=REMAIN(B): PAPER 1:PEN % 

1298 IF wahl=9 THEN 268% 

1388 ON wahl GOSUB 1329,1619,1720,1969,2 
689, 3249, 3979, 3839:G0T0 1169 

1318 ° 

1328 CLS:CLS #i1:namflag=Qd: IF dateiflag‘> 
1 THEN 1359 

1330 IF pfileaend=1 THEN GOSUB 3329 
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1348 IF fileaend=1 THEN GOSUB 349% 
1359 LOCATE #3,3,5: PRINT #3," 
n 


1368 LOCATE #3,11,2:PRINT #3," " 
1378 tilezahlei!filenr=eliobersatz=d: date 
iflagei 


1388 GOSUB 3409: G0SUB 3629: CLS: PRINT: INP 
UT " Name der neuen Datei: "Idatei® 
1398 IF dateig="" THEN 1359 ELSE dateis= 
UPPERS(LEFTS(datei®,8) ) 

19498 GOSUB 3589 

1918 CLS:PRINT: INPUT " Anzahl Felder pro 
Datensatz (max. 16) "sjtelder 

1428 FOR n=1 TO felder 

1438 CLS:PRINT * Datentfeld Nr. "In 

1948 INPUT *® Feldname (max. 12 Zeic 
hen) "Iteldnam®(n) 

1458 IF teldnams(n)="" THEN 1439 

1468 +teldnam®(n)=UPPERS(LEFTS(feldnams( 
n),i12)) 

1478 INPUT " Laenge des Feldes (max 
« 59) "Iteldlang(n) 

1488 IF teldlang(in)<i OR teldlang(n) >59 
THEN 1478 
1498 LOCATE #1,1,2+n: PRINT #1,USING "HH 

"in 
1598 PRINT #L,". "tteldnams(n) :SYMBOL 
32,2,2,2,0,28,8,24,8 
1518 LOCATE #1,19,2+n:PRINT #1, STRINGB( 
feldlang(n) ‚,32)} 
1522 SYMBOL 32,0,8,2,0,0,2,0,8 
1539 NEXT:GOSUB 3240 
1548 FOR n=i TO S:tabels(n)=tabel (n) :NEX 
Titabspals=tabspal 
1552 CLS:PRINT:PRINT *" Alles richtig? 
<ji/n>" 
1560 a®=LOWERB(INKEYS)SIF a8C)"j" AND a8 
<>"n" THEN 1568 
1578 IF a8="n" THEN 1359 
1589 satzlang=ed:FOR n=1 TO felder:satzlia 
ngesatzlang+teldlang(n) :NEXT 
1590 satznr=d: tilesaetze=200006satzlang: 
fileaend=i:pfileaend=i:RETURN 
1698 ’ 
1618 CLS:IF pfileaend=ei THEN GOSUB 3529 
1628 IF tileaend=1 THEN GOSUB 3498 
1638 PRINT:PRINT " Name der gewuenschten 
Datei "J:INPUT datei® 
1649 datei®=UPPERS®(datei®) :GOSUB 3588 
1630 GOSUB 3668: filenr=filezahl:GOSUB 36 
BB: GOSUB 3628 
1668 LOCATE #3,5,3:PRINT #3," 
U} 


1678 FOR n=1 TO tabspal 

1689 LOCATE #3,3+(n-1)%3,S: PRINT #3, U81 
NG "HH"Itabel(n)j 

1690 NEXT:dateiflagel!satznr=sobersatz!CcL 
5 Hlinamflag=d: GOSUB 3649: G0SUB 3949 
1788 RETURN 

1718 
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17208 IF dateirlag<>i THEN 1948 ELSE CLS: 
CLS #5 

1730 IF namtlag=d THEN GOSUB 3949 

1749 obersatz=obersatz+ti:pfileaend=l:fil 
esendeal;satznr=obersatz 

1750 GOSUB 3680: G0SUB 3829 

176% PRINT:PRINT " Eingabe Datensatz"jsa 
tzur 

1770 ottfset=d:LOCATE #1,28,1: PRINT #1,US 
ING "HAAR" Isatznr 

1786 FOR n=1 TO felder 

1798 SYMBOL 32,0,0,0,08,0,0,24,0:KEY DEF 
47,1,96:KEY DEF 39,1,95,68 

1688 LOCATE #1,19,2+n:PRINT #1,STRINGS( 
feldlang(n) ,32)} 

1818 LOCATE #1,17,2+n: INPUT #1, inpus 
1828 FOR k=1 TO LEN(inpu®) 

1830 IF MIDs(inpus,k,i)=CHR6(P5) THEN 

MID$(inpus,k, L)=CHRS(44) 

1898 IF MIDstinpus,k,i)=CHRE(96) THEN 

MIDS(inpus, k, 1) =CHRB (32) 

1858 NEXT:SYMBOL 32,0,0,0,0,08,9,2,9: KEY 
DEF 47,1,32:KEY DEF 39,1,494, 68 

1868 IF LEN(inpus) >teldlang(n) THEN iInp 

us=LEFT@(inpuß, teldlang(n)) 

1878 inpuß=sinpuß+5TRINGS(teldlang(n)-LE 

Ntinpuß) ‚32) 

1888 zadr=28SQ1+otfset+isatznr-i-(tfilen 
r-I)%tilesaetze)isatzlang 

169% zadri=PEEK(Sinpus+i) +256*PEEK ($inp 
us+2) 

108 CALL 406Rd, teldlang(n),zadri,zadr: 

offset=otftset+teldlang(n) 

1918 NEXT:SCLSSPRINT:PRINT " Noch ein Dat 

ensatz? Jin?" 

1929 a®=LOWERB(INKEYB): IF aß="n" THEN 19 
ad ELSE IF a87)"j" THEN 1920 

1938 CLS:CLS #S5:G0T0 1748 

1748 RETURN 

1959 

1968 IF dateitflag‘)L OR obersatz=d THEN 
2640 ELSE WINDOW SWAP 2,8 

1978 CLS #4:CL5 H6:CcLS 

19788 PRINT #4," ”H Hauptmenu":PRINT #4," 
*P Drucker":PRINT #4," *L Liste"j 

1998 prin=@: IF tabspal=8 THEN tabelle=g 
ELSE tabelle=i 

2000 GOSUB 4489:G0SUB 4439 

2801@ CLS:PRINT:PRINT " Datensatz-Nr. 

HRE(24) | Ye" ICHREC24) | "ingeben oder "} 
2028 FRINT CHRB(24) 1 "8" ICHRE(24) | "uchen? 
n 


"sc 


2838 GOSUB 3730: a8=LOWERSCINKEY®) 
2848 IF as="e" THEN 2089 

2050 IF at="s" THEN 2180 

2868 IF ret=i THEN 2660 ELSE 2038 
2979 ° 

2888 CLS:PRINT:INPUT " Datensatz-Nr, 
atznr 

2898 IF satznr(i OR satznr)obersatz THEN 
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2088 
2199 GOSUB 3820:60SUB 3940: G0OSUB 4919 
2118 CLS:PRINT:PRINT " aendern? 
n>" 
2120 GOSUB 3730: a$=LOWERS(INKEYS) 
2130 IF a$="j" THEN GOSUB 2728:60T0 2019 
2148 IF ret=i THEN 2668 
2158 IF asC)"n" THEN 21208 
2168 GOTO 2818 
2179 ° 
2188 GOSUB 3949: n=1; 1stflag=d 
2198 IF tabelle=8 THEN CLS #5 
2208 CLS: PRINT " Datenfeld fuer"ins 
2218 LOCATE 18,1: INPUT *". Suchbegritff"js 
uchfeld(n) 
2228 IF suchfeld(n)<i THEN 2318 
2230 IF suchfeld(n)>felder THEN 2200 
2248 PRINT nJ:LOCATE 3,2:PRINT ". Suchbe 
gritf (max. 25 Zeichen)" 
2259 LOCATE 16,3: INPUT suchstr$(n) 
2268 IF suchstr$(n)="" THEN 2310 
2278 suchstr®(n)=LEFT$6(suchstr$(n), 25) 
2288 IF LEFT$(suchstr$(n),i)="(" OR LEFT 
S(suchstr$(n), 1)="=" OR LEFTS(suchstr#(n 
),i)=")" THEN numver (n)=1 ELSE numver (n) 
=g 
2299 nen+liIF n<S5 THEN 2208 
2399 ’ 
2318 suchbreiten-L:IF suchbreit=8 THEN 2 
218 
2328 CLS:PRINT:INPUT " Unterster Datensa 
tz"jlowsatz 
2338 IF lowsatz(d OR lowsatz)>obersatz TH 
EN 2319 
2348 IF lowsatz=d THEN lowsatz=i 
2358 CLS:PRINT:PRINT " <ENTER> unterbric 
ht die Suche" 
2368 IF tabelle=i THEN CLS #linamflag=d 
2378 Isobersatz:ifind=d 
23588 IF tabelle=®d THEN CLS #5 
2399 satznr=ei:G08UB 3829:605SUB 4289 
2498 as=INKEYS:IF a8="" THEN 2459 ELSE 
IF ASC(a$)<>13 THEN 2459 
2418 CLS:PRINT:PRINT " <ENTER) = weiter 
<DEL> = abbrechen" 
2428 GOSUB 3739: IF ret=i THEN 2668 ELSE 
as=INKEYS: IF as="" THEN 2420 
2438 IF ASCta$)=13 THEN CLS:PRINT:PRINT 
" <ENTER> unterbricht die Suche":GOTO 2 
459 
2448 IF ASC(a®)=K7F THEN 2019 ELSE 2428 
2458 IF gefund=i THEN find=1:60T0 2508 
2449 i=i-L:!IF id=lowsatz THEN 23898 
2478 IF +tind=8 THEN CLS:PRINT:PRINT " K 
ein passender Datensatz"ICHRE(7)5:FOR 1= 
i TO 4888: NEXT 
2988 G0TO 2818 
24998 ' 
25028 IF tabellesi THEN GOSUB 4159:00T0 2 
468 


ST) 
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2519 GOSUB 3949: G08SUB 4218: PRINT CHRS(7) 
I 

2528 h=Q:CL8:PRINT:PRINT " "ICHRB(24) "m 
"ISCHRE(Z24)) "eiter "ICHRE(24) 
2532 PRINT "S"ICHRS(24) j "uchende 

B(24) 1 "a" 5 CHRE(24) ) "endern"} 

2549 GOSUB 3730: a®=LOWERS(INKEYS) 

2550 IF tabelle=i THEN h=1:LOCATE 290,2:P 

RINT " u 

2568 IF aß="w" THEN CLS:CLS #5: PRINT:PRI 

NT " <ENTER) unterbricht die Suche":G0T0 
2468 

2378 IF aß="s" THEN 2018 

2588 IF ret=i THEN 2668 

2598 IF asC)"a" OR h=1 THEN 2548 

2602 GOSUB 2728: CL8:PRINT:PRINT " "ICHRE 
(ZA) "W"ICHRE(24) J"eiter "7 

2619 PRINT CHRS(24) 1 "5" ICHR®(24) J "uchend 
e"j 

2620 GÜSUB 3730: a®=LOWERS(INKEY®) 

2630 IF a6="u" THEN CLS:CLS #5:PRINT:PRI 
NT " <ENTER) unterbricht die Suche":60T0 
2460 

26489 IF a6="s" THEN CLS #5:G0T0 2819 
2658 IF ret=i THEN 2460 ELSE 26208 

2668 WINDOW SWAP 9,2:RETURN 

2678 ' 

2668 IF fileaend=i THEN GOSUB 3498 

2698 IF ptileaend=i THEN GOSUB 3529 
2788 PAPER B:PEN 1:MODE 2:END 

2718 ' 

2728 CLS:PRINT:PRINT " Datensatz aendern 
"offset=d 

2730 SYMBOL 32,0,0,0,0,2,8,24,2:KEY DEF 
47,1,96:KEY DEF 39,1,95,68 

2748 FOR n=i TO felder 

2758 LOCATE #5,1,2+n: INPUT #5,neus: IF L 
EN(neu®) 8 THEN fileaend=i 

2768 IF LEN(neu®) )feldlangin) THEN neus 
sLEFT®(neu®, teldlang(n) ) 

2778 FOR k=1 TO LEN(neuß) 

2788 IF MID®(neus,k,L)=CHRS(96) THEN M 
IDs(neu®,k, L)=CHRE(32) 

2778 IF MID®(neus,k,L)=CHRS(95) THEN M 
ID®#(neu®, k, 1) =CHRS (44) 

2829 NEXT:GOSUB 3898 

2819 inpußeneus+RIGHT®(inpus,LEN(iInpu®) 
-LEN (neuß) ) 

2828 zadr=205Q01+offset+(satznr-I!- -(tilen 
r-l)#Hilesaetze)%satzlang 

2838 zadri=PEEK (Sinpus+1) +2364PEEK (Sinp 
uß+2) 

2849 CALL 49628, teldlang(n) ‚zadri,zadr: 
offset=oftset+feldlang(n) 

2858 NEXT:SYMBOL 32,0,0,02,8,0,2,2,0:KEY 
DEF 47,1,32:KEY DEF 39,1,44,68 

2868 RETURN 

2678 ' 

2868 IF dateiflag=® OR obersatz=d THEN 3 

218 


"ICHR 


98 


2698 CLS:PRINT: INPUT * 
tz "Isatznr 

2702 IF satznr)>obersatz OR satznr(® THEN 
2890 

2#12@ IF satznr=d THEN satznreobersatz 
2928 CLS #l:namtlag=d:prin=g 

2738 CLS:PRINT:PRINT * <ENTER) unterbric 
ht die Ausgabe" 

2949 GOSUB 3828:G08UB 4158 

2958 satznr=satznr-L!IF satznr=d THEN 38 
18 

2960 a®=INKEYS:IF aß="" THEN 2949 ELSE I 
F ASC(aw)<>13 THEN 2948 

297% CLS:PRINT:PRINT " <ENTER) = weiter 

<DEL) = abbrechen" 

2788 a®=INKEYS:IF as="" THEN 2988 

2998 IF ASCtas)=13 THEN 2938 

3000 IF ASC(a®)=K7F THEN 3019 ELSE 2988 
3818 RETURN 

3028 ’ 

3030 IF dateiflag=2 THEN RETURN 

3948 CLS:PRINT:PRINT " Datei "jdateisj" 
wird gesichert. Bitte warten!" 

3059 GOSUB 3520: G0SUB 3499: RETURN 

DaB ' 

3078 IF dateiflag=d OR obersatz<2 THEN R 

ETURN 

3068 CLS:CLS #S:IF namflag=® THEN CLS #1 
:GOSUB 3948 

3899 PRINT:INPUT " Nach welchem Feld sol 
l sortiert werden "jn 

s198 IF nti OR n>telder THEN 3088 

3119 offset=d;FOR k=1 TO n-Lioffset=offs 

et+feldlang(k) :NEXT 

3128 CLS:PRINT:PRINT " "ICHRB(24) 1 "S"ICH 

R#(24)) "teigende oder "| 

3138 PRINT CHR®(24) 1 "#"ICHRS(24) J "allend 

e Sortierung ?" 

3149 a®eLOWERB(INKEYB):IF aß="s" THEN op 

er=1:G0T0 3169 

Ssı5g IF as="f" THEN oper=2 ELSE 3148 

3168 CLS: lowsatz=(filenr-1)*(200006satzi 

ang)+l:itop=lonsatz+(200006satzlang)-1 

3178 IF top)>obersatz THEN top=obersatz 

3189 ztop=203Q1+(top-lowsatz)*satzlang:P 

OKE 49593, oper:POKE 49594, feldlang(n) 

3199 POKE 49586, ztop-INT(ztop/256) #256: P 

OKE 48387, INT(ztop/256) 

3288 POKE 49512,satzlang MOD 256:POKE 48 

S13,satzlangd2354 

3218 POKE 49514,otfset MOD 256: POKE 4951 

S,offsetd256 

3228 CALL 48676: tileaend=1:RETURN 

3238 ' 

3248 IF dateiflag=d THEN RETURN 

3259 CLS:PRINT " Liste zusammenstellen ( 

gesamt max. 56 Zeichen) :" 

32629 CLS #3:LOCATE #3,5,5: PRINT #3, STRIN 

06(14,32)7j 

3278 IF namflag=d THEN CLS#i:inliste1:608 


oberster Datensa 


LISTING 


UB 3948 

3288 LOCATE #1,1,1:PRINT #1,5TRING# (28,3 
2) 

3299 tabbreit=din=si’inamflag=d 

3388 LOCATE 4,2:PRINT "Feld-Nr. tuer"inj 
3318 LOCATE 19,2: INPUT "., Listenspalte " 
Itabel(n) 

3328 IF tabel(n)=® THEN 3438 

3338 IF tabel(n)<i OR tabel(n))felder TH 
EN 3429. 

3349 tabbreits=stabbreit+tfeldlang(tabel (n) 
) 

3358 IF tabbreit)S6 THEN tabbreit=tabbre 
it-teldlang(tabel (n)):GOTO 3429 

3368 LOCATE #1,1,1:PRINT #1,"Lst:" 

3378 LOCATE #1,8+tabbreit-feldlang(tabel 
{n))+in-1)%3,1 

3380 SYMBOL 32,0,2,2,0,2,2,24,0: PRINT #1 
‚STRINGS(teldlang(tabel (n)) ,32)} 

3399 SYMBOL 32,2,2,2,2,2,2,28,8 

3498 LOCATE #3,5+(n-1)%3,S: PRINT #3, USIN 
G "HH"jtabelin)s 

3418 nen+l: IF n=6 THEN 3439 
3428 LOCATE 36,2:PRINT " 

TO 3398 

3439 tabspal=en-1:FOR n=etabspal+iL TO Sita 
beltn)=d:NEXT 

3448 RETURN 

3459 ' 

3468 PRINT CHRE(24)J:LOCATE mpos(wahl,i) 
‚mpos(wahl,2) 

3478 PRINT menu®(wahl) $:RETURN 

3489 ' 

3499 tileaend=d: as=dateis+". da" +RIGHTE(S 
TRe(tilenr) ,i) 

3509 SAVE a®,b, 28501, 20080: au="%.,bak":dE 
RA, Sa®#: RETURN 

331g ' 

3528 pfileaend=di aß=dateiß+", par" 

3538 OPENOUT as: PRINT #9, obersatz: PRINT 

#7, telder:PRINT #9, tabspals 

33548 PRINT #9, tilezahl:PRINT #9,satzlang 
:PRINT #9, tilesaetze 

3358 FOR n=i TO 16:PRINT #9, feldlangin): 
PRINT #9, feldnams(n) NEXT 

3568 FOR n=1 TO 5:PRINT #9,tabelstn):NEX 
T:CLOSEOUT: RETURN 

3379 ° 

3588 LOCATE #3,11,2:PRINT #3,STRING®(8-L 
EN (datei®) ,32) Jdatei®: RETURN 

3399 ’ 

3628 LOCATE #3,15,3: PRINT #3,L8ING "And 
"ıobersatz:RETURN 

3610 ' 

3628 LOCATE #3,17,4: PRINT #3, tilenr:RETU 
RN 

3630 ' 

3649 as=dateis+".da"+RIGHTEISTR#(tilenr) 
‚t):LOAD aß: fileaend=d: RETURN 

3659 ' 


99 


366429 ptileaend=d: as=dateiß+".par" 

3678 OPENIN a®: INPUT #9 ,obersatz: INPUT 4 
9,telder: INPUT #9,tabspals 

3688 INPUT #9, #ilezahl! INPUT %9,satzlang 
INPUT #9, tilesastze 

3678 FOR na} TO 16: INPUT #9, feldlangin): 
INPUT #9, teldnams®(n) :NEXT 

3788 FOR n=1 TO 3: INPUT #9,tabels(n):NEX 
T:CLOSEIN 

3718 tabspal=tabspals:FOR n=1 TO S:tabel 

(n)=tabels(n) :NEXT:RETURN 

3728 ' 

3738 IF INKEY(27)<)128 THEN 3768 

3748 IF prin=i THEN prin=2:60SUB 4498 EL 
SE prin=1:G0SUB 4488 

3758 FOR I=1 TO 289: NEXT 

3768 IF INKEY(36)<>128 THEN 3798 

3778 CLS #linamflag=Q: IF tabelle=i THEN 
tabelle=g:GOSUB 4439:G05UB 3949 ELSE tab 
elle=1:008UB 4438 

3788 FOR l=1 TO 289: NEXT 

3798 IF INKEY(44)=128 THEN ret=1 

3828 RETURN 

3819 ' 

3828 IF satznr=d THEN 3878 

3838 IF satznr)(filenr-i)*filesaetze AND 

satznr<=tilenrttfilesaetze THEN 3870 
3848 IF fileaend=i THEN GOSUB 3499 
3859 +ilenr=((satznr-1)ötilesaetze) +1:60 
SUB 3629 
3868 IF tilenr>filezahl THEN filezahl=#i 
lezahl+i:pfileaend=i ELSE GOSUB 3448 
3878 RETURN 
3889 ' 

3898 inpus=STRING®(feldlang(n),32) 

3928 zadri=PEEK (Sinpus+1) +256%PEEK (Sinpu 
+2) 

3P19 zadr=20501H+otfset+(satznr-L-(filenr 
-i)#filesaetze)%satzlang 

3928 CALL 49600, feldlangin) ‚zadr,zadri! R 
ETURN 

3939 ' 

3749 IF nantlag=i THEN 3999 

3958 CLS Hlinamflag=i 

3P68 IF nlist=i THEN nlist=0:G60T0 3978 E 
LSE PRINT #1, "DATENSATZ-NR: " 

3978 FOR n=i TO felder:LOCATE #1,1,2+n:P 
RINT #1,U8SING "AH"in] 

3788 PRINT #1,". "IteldnamBin)J:NEXT 
39798 RETURN 

“208 ' 

“Bild CLS #3:LOCATE #5,93,1: PRINT #5, USING 

"HAHH"Isatznr 
4828 IF prin=8 THEN 4858 
4230 PRINT #8: PRINT #8: PRINT #8," 
I: *"ıdateis" 

"USING "AHA" Inatzar| 
4848 PRINT #8,STRINGS(15,32) 5 "DATUM: "Id 
atum®s: PRINT #8: Istflag=d 
4258 otftset=d 


DATE 
DATENSATZ-NR. ! 


LISTING 


4868 SYMBOL 32,2,0,2,02,2,9,24,8 

#878 FOR n=1 TO felder 

“088 GOSUB 3899: oftset=otffset+feldlangt 
n) 

298 LOCATE #3,3,n+25 PRINT #5, inpus: IF 
prin=9 THEN 4118 

4198 PRINT #8," "ıteldnam®(n) JSTRINGE 
t(14-LEN(feldnams(n)), 32) Jinpu® 

4118 NEXT:SYMBOL 32,92,0,2,2,0,20,0,8 
4128 IF prin=i THEN PRINT #8:PRINT #8 
4138 RETURN 

alag ' 

4158 IF Istflag=@ AND prin=i THEN Istfla 
geil:G05UB 4448 

4168 IF prin<>i THEN 4189 ELSE PRINT #8, 
" NSUSING "RAN" Isatznr 

4178 PRINT #8," 

4188 PRINT #1,USING "AHk"Isatznr) 

4198 PRINT #1," " 

4288 FOR m=1 TO tabspal:offset=din=tabel 
{m) 

4218 FOR k=1 TO n-i 

4228 oftset=offset+feldlang(k) 

4239 NEXT:GOSUB 3898: PRINT #1,inpu@s;s IF 
m<cS THEN PRINT #1,” ”; 

4248 IF prin=ei THEN PRINT #8, inpusjsIF 
m<S THEN PRINT #8," ”y 

4258 NEXT:PRINT #1:IF prin=i THEN PRINT 
“8 

4268 RETURN 

4278 ' 

4260 mei 

4290 offset=d:FOR k=1 TO suchteld(m) -1: 
offsetzoftset+feldlang(k) : NEXT 

4308 n=suchfeld(m) :G0SUB 3899: IF numver 
(m)=1 THEN 4339 

4318 IF INSTR(LOWER$(inpu®) ,LOWER$ (such 
str#(m))) THEN gefund=ei ELSE gefund=ß 
4328 GOTO 4369 

4338 IF LEFTS(suchstrs(m) ,1)="<(" THEN 1 
F VALtinpus) <VAL(RIGHT#(suchstr®(m) ,LEN( 
suchstr#(m))-L)I)THEN getund=i ELSE gefun 
de 

4348 IF LEFTS(suchstr$(m),I)="=" THEN I 
F VALtinpus)=VAL(RIGHTS(suchstr@(m) ,‚LEN( 
suchstr&(m))-LI)THEN gefund=i ELSE gefun 
d=9 

4358 IF LEFT$(suchstr$(m) ,L)=">" THEN I 

F VALtinpuß) >VAL(RIGHTS(suchstr®(m) ‚LEN 

suchstr®(m))-1))THEN gefund=i ELSE gefun 

de 

4368 IF getfund=1 THEN m=n+1 ELSE 4389 

4378 IF m(=suchbreit THEN 4299 

4388 RETURN 

4399 

4498 LOCATE #4,13,2:1IF prinei THEN PRINT 
#4, CHR®(24) ; "EIN"ICHRS(24)5 ELSE PRINT 

#4, CHR$ (24) 5 "AUS" SCHRS(24) ; 

4418 RETURN 

4420 ' 


4438 LOCATE #4,13,3: IF tabelle=1 THEN PR 
INT #4, CHRS(24) 5 "EIN"ICHRS(24)5 ELSE PRI 

NT #4, CHRS (24) $ "AUS" ICHRS(24) 5 

444% RETURN 

445g ' 

4468 PRINT #8: PRINT #8 

4478 PRINT #8," DATEI: "IdateisI STRINGS( 

48,32) 1 "DATUM: "Idatum® 

4488 PRINT #8: PRINT #8," Auflistung der 

Datensaetze mit folgenden Merkmalen: " 

4498 FOR h=1 TO suchbreit 

4388 PRINT #8," - "jteldnams(suchtfeld 
(h))3 

4518 PRINT #8, STRINGS(12-LEN(teldnams(s 

uchtfeld(h))),32)9"5 "Isuchstr®(h) 

4528 NEXT:PRINT #8:PRINT #8," Spalte I : 

DATENSATZ-NR." 

4538 FOR h=2 TO tabspal+ti 

4548 PRINT #8," Spalte’ijhj": "Iteldnam 

Stabel(h-1)) 

4358 NEXT 

4568 PRINT #8: PRINT #8:PRINT #8, L 
2" 

45378 FOR h=1 TO tabspal-i 

4588 PRINT #8,STRINGS(teldlang(tabel (h) 
),32) Ih+23 

4598 NEXT:PRINT #8: PRINT #8: RETURN 
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LISTING 


SUPERHARDCOPY 


Abgesehen von der Druckerkompatibilität gibt es bei 
einer Hardcopy immer zwei Probleme: Viele sind ein- 
fach zu klein, eine echte DIN A4-Darstellung kommt 
nicht zustande, weil das Papier quer bedruckt werden 
müßte. Das zweite Problem ist die Farberkennung. 
Normalerweise wird jede Farbe akzeptiert und ge- 
druckt. Da ein Drucker nun einmal nur schwarze 
Farbe zu Papier bringt, ist eine Schrift, die sich auf 
dem Monitor Gelb auf Rot darstellt, nicht mehr zu 
lesen. Christian Fibikar hat es nun geschafft, beide 
Hürden zu überwinden. Seine Routine druckt echtes 
DIN A4-Format aus, indem das Bild gedreht wird. 
Statt der Farben kann der Anwender der “Super- 
hardcopy“ verschiedene Raster auswählen und da- 
durch unterschiedliche Grautöne auf dem Drucker er- 
zeugen. Zum Programm selbst nun der Autor: 


Leistungsfähigkeit 


Diese Hardcopy unterscheidet sich von den meisten 
anderen Hardcopyroutinen darin, daß eine Bildschirm- 
hardcopy in allen drei Modi möglich ist. Die verschie- 
denen Farben werden als Muster ausgedruckt, dies 
sind 16 Muster in Mode O und 4 in Mode 1. Es findet 
keine Streckung oder Verzerrung des Ausdrucks 
statt, Kreise werden auch als Kreise ausgedruckt. Der 
Ausdruck erfolgt im DIN A4-Format in allen drei 
Modi. Die Muster kann man selbst festlegen und zum 
Test ausdrucken. Die Druckzeit hängt dabei fast nur 
vom Drucker ab, da das Lesen der Pixel vom Bild- 
schirm sehr schnell geht. 


Programmerklärung 


Der Basic-Lader (ab Zeile 30000) installiert 5 RSX- 
Befehle. Bei der Initialisierung werden 16 Grundmu- 
ster eingestellt, die man aber mit den RSX-Befehlen 
verändern kann (Grundmuster beim Basic-Lader ab 
Zeile 35369). Ein Muster wird durch eine 5*4 Matrix 
festgelegt (5 Punkte horizontal * 4 vertikal). Jeder 
Punkt der in der Matrix gesetzt ist, wird auch als 
Punkt vom Drucker ausgegeben. Zur Codierung wer- 
den jeweils die horizontalen Punkte zusammengefaßt. 
Für diejenigen, denen dieser Vorgang zu kompliziert 
und mühsam ist, liegt hier ein Matrix-Creator vor, 
u dem man ganz einfach ein Muster entwerfen 

ann. 
Gleichzeitig werden auch jeweils die Codes für die 
horizontalen Zeilen angezeigt. Man sieht auch am 
Bildschirm alle 16 vorhandenen Muster. Es wird 
auch angezeigt, wie das Muster ausgedruckt aus- 
sieht. Jedes der 16 Muster kann verändert werden, es 
können auch Muster ausgewechselt werden. Jederzeit 
können die Muster zum Test vom Drucker ausge- 
druckt werden. 
Jeder Farbe (INK) wird ein Muster (MATRIX) zuge- 
ordnet. Es gibt 16 Muster, die jeweils die Nummer 
der Farbe (INK) haben. Im Mode 1 gibt es nur 


Bitte lesen Sie weiter auf Seite 104 


101 
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20 ’%* MATRIX-CREATOR * 
3 '%* VON * 
a '%* CHRISTIAN R. FIBIKER * 
se '% FUER * 
6 '%* SCHNEIDER AKTIV * 
El CPC 464 * 
73 °'% MIT ANPASSUNG FUER 6694/6128 * 


DE u 2 2 2 2 2 2 2 2 2 2 22 2 2 2 2 2 2 2 0 0 22 7 272 0 2.2 2 2. 
98 ' RSX-Befenle laden und 

95 ’ Bildschirm aufbauen 

96 ’ 

188 RESTORE 33090:60SUB 38999: RESTORE 
118 MODE 1:DIM p(4,3) 

128 FOR i=8 TO 3:KEY DEF 72+1,1,KF@+i: NE 
XT:KEY DEF 76, 1,kE® 

130 basis=bas+&k283 

148 MOVE 4,376:DRAWR 639,9,3:MOVE 634,37 

6:DRAWR @,-122:PEN 2 

152 PRINT * Matrixtabelle: "!TAG 

168 FOR yur=328 TO 266 STEP -6250RIGIN 4 
‚yur-12:DRAWR 630,0,3 

178 FOR xur=28 TO 588 STEP 8@:0RIGIN xur 
‚yur:MOVE -26,48 

169 DRAWR 9, -60,3:PLOT 4,92,2:PRINT USIN 

6 "HH"IFR:GOSLB 320: banisebasis+! 

198 Fut+l:NEXT xur,yur 

209 TAGOFF:LOCATE 1,12:PRINT "Matrix Nr, 
B":WINDOW #1,15,48,12,23:PEN #1,2 

21@ READ as: IF as<)"e" THEN PRINT W1,a8: 

GOTO 210 

228 PAPER 3:FOR i=14 TO 19:LOCATE 5,i:PR 
INT SPC (7) 

230 IF 1314 AND i<c19 THEN LOCATE #5,2,1: 
PRINT 45, '00" 

248 NEXT:FOR i=21 TO 2S:LOCATE 5,1: PRINT 
SPC (7)! NEXT 

259 ORIGIN 108,30: FOR y=fl TO 3:uty)=d: FO 
R is TO 4: pti,y)=d;NEXT:GOSUB SI9:NEXT 
260 xuß: ya 

265 

266 ' Steuerungsteil 

267 ' 

279 LOCATE xar6,ya+iS: PRINT CHRS(32+111% 
p(xa,ya))ixasxı yany 

289 GOSUB 47% 

299 tS=LIPPERS(INKEYS)!IF t$="" THEN 299 
3088 IF t8="S" THEN 549 

318 IF te="C" THEN 579 

320 IF te="R” THEN 600 

339 IF tSsCHRBIKEN) THEN 64% 

349 IF te="L" THEN 220 

350 IF tsa"T" THEN DTEST:GNTO 290 

360 IF t6="H" THEN SHARDCOPY:GOTO 299 
370 IF ts<”"ü" THEN 290 

388 ON ASC(te) -KEF GOTO 390,410,439,450 
385 ° 

386 ' Cursorsteuerung 

387 ' 

398 IF Y>® THEN Yey-i 


488 GOTO 278 

ala IF Yt3 THEN Yeysı 
428 GOTO 27@ 

438 IF X>8 THEN X=X-1 
449 GOTO 278 

432 IF %<4 THEN XaXr+l 
468 GOTO 278 

465 ' 

466 ' Unterprogramme 

% 


478 LOCATE x+6,y+1S:PRINT CHRS(24HP(x,y) 

IICHRBLLSPICHRE(24XpIx,y)) RETURN 

489 GOSUB 478: 0RIGIN 198,30 

498 pep(x,y)ixxexk2iyysyk2:PLOT xx-20,-y 

Y,p:FOR xu=@ TO 3% STEP 19 

308 FOR yu=ß TO 24 STEP 8:PLOT xutxx,yu- 

Yy,Pp:NEXT yu,xu:RETURN 

319 FOR x=8 TO 4:60SUB 499:NEXT x: RETURN 

520 basis=basis+3:FOR y=8 TO 3:nty)=PEEK 

(basis-y):b$=BINS(w(y) ,S):FOR bx=1 TO 5: 

p(bx-1,y)=VAL(CMIDS(hB,bx, I.) I) I NEXT Dx}G0S 

UB SI9:NEXT y:!RETURN 

530 PAPER 8:LOCATE 12,12: INPUT *",p:IF p 

<8 OR p>1S THEN 330 ELSE PAPER 3: RETURN 

535 °’ 

336 * Matrix in Matrixtabelle schreiben 

537 

548 GOSUB 539: 60SUB 66Q!nzp:YYYeyYıXXX=X 

338 FOR Y=8 TO 3:60SUB S19:5 NEXT YıY=YYY: 

KuX%XX 

369 BMATRIX,.n,wiO) ,wtl) ,w(2) ,w(3):G0T0 2 

99 

565 ' 

566 ' Matrixen wechseln 

567 

378 LOCATE #1,1,14: INPUT #1,"Matrix Nr., 

Nr. ",pl,p2:IF pL>15 OR p2)1S THEN 579 

588 LOCATE #1,1,14: PRINT #1,CHRS(18) 5 :0C 

MATRIX, pl, p2:p=plixxx=zxiyyy=y:!FOR i=9 TO 
sunti)zwti)sFOR j=8 TO 4ippij,i’splj,i 

J)ENEXT j,i 

399 GOSUB 660:G60SUB 529: p=p2:G0SUB 669:6 

OSUB S2Q:x=xxxiyeyyy}FOR i=ß TO 3:wli)ew 

wti)sFOR j=8 TO 4:p(j,i)=pplj,i)iNEXT j, 

i:60T0 299 

595 ’ 

596 ’ Matrix aus Tabelle lesen 

597 ’ 

609 GOSUB 539: G0SUB 669: 0RIGIN 198, 30:XX 

XaXıYYYzY:GOSUB 520: XeXXXı YayyYy 

619 FOR YT=8 TO 3:L0OCATE #5,2,yt+1S:PRIN 

T #5, HEX$ (wm(yt),2) 

629 LOCATE 6,YT+15:FOR XT=8 TO 4:PRINT C 

HRS (32+ 111 KPIXT,YTIIJ 

638 NEXT XT,YT:G60T0 289 

635 ' 

636 ' Pixel an/aus 

637 ' 

698 PIiX,Y)=PiX,Y) XOR Liwty)zwiy) XOR 2° 

(4-x)SLOCATE #3,2,15+y 


LISTING 


658 PRINT #3, HEXS(m(y),2):G0SUB 489: G0T0 
290 

669 ORIGIN 28+(P- (PUB) KB) HER, 328-624 (PB 
):basis=bas+&k285+p%*4: RETURN 

665 ’ 

666 ' Erklaerung 

667 ’ 

678 DATA Steuerung mit Joystick 
Cursortasten 

688 DATA ‚„Fire/COPY - Pixel an/aus, 
699 DATA L - Matrix loeschen,R - Aus Mat 
rixtab, lesen,C - Matrixen wechseln 

08 DATA S - Matr. in Tab schreiben, T - 
Matrixtabelle drucken,H - Hardcopy,® 
29898 * 


oder 


ZI RRHAHHHHHHHHHHHHE 
2990’ Kr ar 
29920 ' Kir RSX-Befehle ar 
29939 ' Mk HARDCOPY Dur 
2970’ MATRIX Lu 
29959 ’ CMATRIX er 
29960 ' MRESET Hr 
29965 ' KH TEST ar 
29979 ' Hk Dun; 
27989 ’ ##%* von Ch.R. Fibikar Hk 
29999 ’ HH Dur 
29995  AHAHRHHRHRHRAHRHHRHHHENE 
29996 ' 

300990 bas=HIMEM-712 


30210 IF bas)k4000 THEN 30939 

39928 PRINT "Kein Speicherplatz mehr 
frei! "sEND 

30039 basis=ebasti 

300949 endembanin+&ä4Rd 

309359 bhi=INT(basis/256) 

30949 blo=sbasis-bhi#256 

30278 zeile=35080 


30980 ’ 
30899 WHILE basis‘)ende 
30199 READ ob# 
30110 IF ob6="" THEN 30120 ELSE 39208 
381209 READ lo:READ hi 
38130 sumnmnessumme+lo+h1i+4909 
30149 lo=slo+blo 
301509 ob=hi+bhi+106256 
39168 POKE basis, (lo MOD 256) 
38178 basis=basis+i 
38189 GOTO 39399 
30198 ! 
30290 ob=VAL (ob#) 
30219 IF ob{18089 THEN 392929 
39228 IF summe=ob-10898 THEN 39 
269 
39239 PRINT "Summenfenler in 
n 
’ 
30248 PRINT " Zeile "jzeile 
3025% = 
39260 zeileszeile+id 
39278 summe=d 
30289 G0T0 30328 
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30299 summessumme+ob 
383909 POKE basis,ob 
39310 basissbasis+i 
39329 WEND 

30339 °’ 


30348 IF + THEN END 

30359 MEMORY bas 

30360 CALL bas+i 

3037@ RETURN 

30380 ° 

35008 DATA 1,,12,0,33,, 128,2, 208,209, 188 
‚195, ,61,0,,29,2,195, ,253,0,31S11 

35910 DATA 195,,61,0,195,,73,2,195,,219, 
0,195, ,186,0,72,65,82, 27449 

33020 DATA 68,67,79,80,217,77,82,69,83,6 
9,212,77,65,84,82,73,11484 

35039 DATA 216,67,77,65,84,82,73,216,84, 
69,83, 212,0,33, ,64,2,15427 

35049 DATA 17,,132,2,1,64,8,237, 176,201, 
221,94,8,123,254, 16,208,153754 

35039 DATA 39, ,132,2,175,87,293, 35, 203,3 
5,25,6,4,221,126,0,230, 15517 

35068 DATA 31,119,35,221,35, 221,33, 16,24 
3,201,237,115, ,198,2, 208,6, 15929 

35070 DATA 185,14,4,62,27,205, ,36,2,62,5 
1,205, ,36,2,62, 15,205, 19173 

35089 DATA ‚36,2,62,13,285, ,36,2,62, 18,2 
05, ,36,2,6, 16, 62,27, 22782 j 

35990 DATA 295, ,36,2,62,76, 285, ‚36,2, 175 
‚205, ,36,2,62, 3,285, ‚36, 2, 27358 

35108 DATA 33,,132,2,197,93,84,14,8,98,1 
07,6,4,126,205, ,36,2,19147 

35110 DATA 35,16,249,13,32,242,6,16, 175, 
205, ,36, 2,16, 251,193, 15487 

35129 DATA 16,226,62,19,205, ,36,2,62,18, 
203, ,36,2,13,32,189, 195, 19384 

35138 DATA 9,165, 221,78,0,62,15, 165,216, 
221,94,2,187, 216, 175,87, 11953 

35149 DATA 71, 203,35, 293,35, 203, 33, 203,3 
3,33, ,132,2,229, 25,235, 225, 15998 


3S158 DATA 9,6,4,26,78,119,121,18,35,19, 


16,247, 201,237, 115, , 198,2, 15451 

35168 DATA 205,6, 185,62,27,205, ‚36, 2,62, 
51,205, ,36, 2,58, 200, 19342 

35178 DATA 177,254,1,1,170,1,38,14,62,5, 
17,168,0,56, 17,1, 10974 

35180 DATA 136,2,62,3,49,10,1,128,5,38, 1 
8,62,1,17,128,0, 190651 

35198 DATA 59,,138,1,121,50,,31, 2,120, 50 
‚196,2, 124,205, ‚36,2, 213, 27333 

35298 DATA 17,9,2,33,0,0,205, 169, 11,209, 
20,229,213, 205, ,50,2,15363 

35219 DATA 30, 200,62,13,205, ,36,2,62,18, 
205, ,36, 2,62, 9,205, ‚36,2, 23177 

35228 DATA 62,27,205, ,36,2,62,76,205, ‚36 
‚2,62,32, 203, ‚36, 2, 23058 

35230 DATA 62,3,205, ,36,2,213, 229, 197,58 
‚196, 2,95,22,9,205, 139, 19655 

35248 DATA 12,6,0,203,34, 16,252, 178,87,2 
9,49,5,205, ,27,2,24, 15128 


| LISTING 


35259 DATA 237,38, ,196,2,254,35,32,15, 295 
‚130,12, 203,34, 178,6,4, 15571 

335260 DATA 205,,36,2,16,251,24,82, 293, 34 
‚283,34, 203, 128,254, 2,32, 15799 

33278 DATA 7,66, 120,230,28,87,203,192,33 
‚,132,2,99, 175,87, 25,235, 15712 

335289 DATA 203, 64,40, 42,120, 230, 224,203, 
63, 293, 63, 203, 63, 213, 95,175, 12204 

35299 DATA 87,33, ,132,2,25,299,6,4, 26,2 
39,7,78, 203,33, 203,33, 15311 

35308 DATA 283,33,177,238,31,35,19,205,, 
36,2,16,236,24,11,6,4, 15268 

35310 DATA 26, 230,31,208,,36,2,19,16,247 
‚193, 225,209, 205,45,12,29, 15739 

33329 DATA 194,,117,1,209,225,39,,196,2, 
245,205, ,27,2,241,61,32, 248, 24063 

353330 DATA 29,194,,75,1,21,194,,75,1,198 
‚9,185,203,57, 208, 14,9, 19461 

35349 DATA 205,249,11,291,197,50,,197,2, 
205,248,7,193, 216,205, ‚50, 2, 20238 

35359 DATA 24, 242,205, 66, 26, 254, 252,38, , 
197,2,192,237, 123, ,198, 2,201, 20279 

35355 ’ Matrixtabelle " 

35368 DATA 8,2,9,2,31,31,31,31,31,8,31,8 
‚31,0,8,0,19217 

353780 DATA 31,17,17,31,12,12,12,12,31,16 
‚16,16,0,4,4,0,18231 

353808 DATA 10,10,19,19,19,17,17,14,31,18 
‚31,18,2,31,31,0,190246 

35399 DATA 31,21,21,31,28,28,28,28,0,14, 
14,0,1,6,8,16, 10275 


Fortsetzung von Seite 101 


4 Farben, also auch nur 4 Muster, die den ersten 

4 Matrixfeldern entsprechen. Bei der Ausgabe wer- 
den aber nur die ersten 2 bis 3 Punkte (von rechts) 
der Matrix ausgedruckt, da ja doppelt soviele hori- 
zontale Punkte vorhanden sind wie im Mode 0. 
Bei jedem ersten Bildpunkt werden die zwei ersten 
Matrixpunkte und bei jedem zweiten Bildpunkt 


werden die ersten drei Matrixpunkte ausgedruckt. 
Dies muß gemacht werden, um eine horizontale Ver- 
zertung zu vermeiden. 

Bei Mode 2 gibt es nur zwei Farben. Eine Musteraus- 
gabe wäre also nicht sehr sinnvoll. So wird jeder ge- 
setzte Bildschirmpunkt als ein 4*] großer Punkt auf 
dem Drucker ausgegeben. Jeder fünfte Punkt wird 
doppelt ausgegeben, damit keine horizontale Ver- 
zerrung auftritt. Die Hardcopys in den verschiede- 
nen Modes haben eine Größe von 26*17 cm. Die 
Zeitdauer des Ausdrucks hängt von der Geschwin- 
digkeit des Druckers ab. Die Hardcopy des Mode 2 
gehört jedoch zu den schnellsten. 


Befehlsformate 


IHARDCOPY: Eine Bildschirmhardcopy wird auf 
dem Drucker ausgegeben. Die Ausgabe kann mit ESC 
unterbrochen werden. Danach sollte der Drucker kurz 
aus- und wieder. angeschaltet werden (zurücksetzen). 
Beim Ausdruck entspricht eine vertikale Bildschirm- 
zeile einer horizontalen. 


ITEST: Die Muster werden ausgedruckt (Ausdruck 
wie bei einer Hardcopy). 


IMRESET: Die Muster werden auf die Grundmuster, 
wie beim Initialisieren, zurückgesetzt. 


ICMATRIX,m1,m2: Matrixen von Muster ml und 
m2 werden ausgetauscht. (Z.B. zum Invertieren: 
ICMATRIX,0,1 — Muster O hat nun die Matrix von 
Muster 1 und Muster 1 die von Muster 0.) 


IMATRIX,m,b1,b2,b3,b4: Muster m bekommt die 
Matrix zugewiesen (bestimmt durch b1 —b4). bl ist 
der Code der ersten horizontalen Punktreihe der 
Matrix, b4 ist der Code der letzten Punktreihe. 


Tips zum Eintippen 


Das Basic-Programm besteht aus zwei Teilen, dem 
Matrix-Creator und dem Basic-Lader für die RSX-Be- 
fehle. Wer keine Muster selbst erstellen will, braucht 
den Matrix-Creator (Zeile 100-700) nicht einzutip- 
pen. Um die RSX-Befehle zu laden, genügt es, den 
Basic-Lader (ab Zeile 30000) anzuschreiben. Dieser 
Teil kann auch in eigene Programme eingebaut 
werden. 

Die RSX-Befehle werden an das Ende des Basic-Rams 
geladen. Wird die Meldung “Kein Speicherplatz mehr 
frei“ ausgegeben, dann muß der CPC zurückgesetzt 
werden. Das Programm sollte vor dem ersten Start 
abgespeichert werden. Tippfehler in den DATA-Zei- 
len werden durch die Warnung “Summenfehler in 
Zeile xxx“ angezeigt. Sind keine Tippfehler aufgetre- 
ten, dann werden die RSX-Befehle initialisiert und 
stehen sofort zur Verfügung (ein eventuelles 
SYMBOL AFTER... muß vor dem Starten des Basic- 
Laders ausgeführt werden, danach ist der Befehl 
nicht mehr durchführbar). Das HIMEM wird auto- 
matisch herabgesetzt. Die RSX-Befehle belegen 712 
Bytes. Die Hardcopy funktioniert bei allen Schneider- 
Druckern, sowie allen dazu kompatiblen (Epson etc.). 


Bild 1: 


Matrix Binär Hex-Dez. 
xxx =  8&x11111= &IF 
—x—-——- = &x01000= &08 
—-—x-— = &8&x00100 = &04 
—-—-—x—- = &x00010 = &02 


LISTING 


HHHRHHHHHHRHHHHHHHHHHHHHNEN 

*# SUPERHARDCOPYANPASSUNG FUER 664 % 

°»%* >DIE ZEILEN 35208-353330 MUESSEN<* 

2 ANGEPASST WERDEN % 

ERHHRHHHHHHHHHHHRHRHHHRRRHRHHHHHHEE 

35200 DATA 17,0,0,33,0,0,205,171,11,209, 
20,229, 213,205, ‚58,2, 15368 

35230 DATA 62,3,295, ,36, 2,213, 229, 197,8 
196,2, 95, 22,0, 205,134, 19659 

35250 DATA 237,58, ,196,2,254,5,32, 13,208 
‚134, 12,203, 34, 178,6,4, 15575 

35310 DATA 26,230,31,205,,36,2,19,16,247 
‚193, 225,209, 205,53, 12,29, 15738 

35348 DATA 205,1,12,201,197,58,,197,2,20 
5,37,8,193, 216,205, , 50,2, 19781 

35359 DATA 24,242,205,197,27,254, 252,58, 
‚197,2,192,237,123,, 198, 2,201, 20411 


QGBWON" 


IHRRRRHRAHREHAHHHRHHRHHRHHHHRHAHHHHN 

'#SUPERHARDCOPYANFPASSUNG FUER 6128 * 

'#* >DIE ZEILEN 35290-353359 MUESSEN * 

’%* GEAENDERT WERDENS * 

a u na E20 2 2 22 U 2 2 22 2 212 02 2 2 2 212 2 2 

35208 DATA 17,0,0,33,9,9,205,175,11,209, 
20,229,213, 205, ,59,2,15369 

35230 DATA 62,3,205,,36,2,213,229,197,38 
„196,2, 95,22,0,205,138, 19663 

35258 DATA 237,58, ,196, 2,254,5,92,15, 285 
‚138,12, 203,34,178,6,4,15579 

35310 DATA 26,230,31,205,,36,2,19,16,247 
‚193, 225,209,205,57,12,29,13742 

33340 DATA 205,5,12,291,197,59,,197,2,28 
3,53,8,193, 216,205, ,50,2, 19881 

35330 DATA 24,242,205,197,27, 254, 252,58, 
„197,2,192,237,123,,198,2,201, 20411 


QÜADB@ON- 


Menschen in Not brauchen Hilfe: 
zuverlässig, schnell, wirksam. Die beiden kirchlichen 
Hilfswerke nehmen ihren Auftrag ernst. 

Deutscher Caritasverband FT7I fasl Diakonisches Werk 
Postgiro Karlsruhe 202 LsJ MER Postgiro Stuttgart 502 


und viele Banken u. Sparkasser 


ENTSCHEIDUNGS- 
MATRIX 


Trotz aller Technik im Computerbereich ist es immer 
noch der Mensch, der letztlich die Entscheidung zu 
treffen hat. Aber warum soll er sich nicht helfen las- 
sen? Der CPC listet alle Daten, die zu einem Entschluß 
nötig sind, auf und berechnet nach Ihren Kriterien. 
Um Entscheidungen zu treffen ist es wichtig, verschie- 
dene Alternativen zu gewichten und im Zusammen- 
hang zu bewerten. Bei einfachen Problemen kann man 
dies noch im Kopf machen, jedoch wird es kaum gelin- 
gen, komplexe Entscheidungsprozesse systematisch ° 
zu bewerten und zu durchschauen. 

Das Programm “Emat“ kann bis zu 12 Personen, Ge- 
genstände oder Handlungen miteinander vergleichen, 
wobei maximal 15 einzelne Bewertungskriterien mit 
unterschiedlicher Gewichtung vorhanden sein können. 
Beispiel: Jemand möchte sich eine neue Maschine kau- 
fen und die für ihn persönlich am besten geeignete er- 
werben. Er stellt sich eine Liste mit den für ihn wichti- 
gen Kriterien zusammen. Das wären: Kaufpreis, Dreh- 
zahl, Wattzahl, Gewicht, Kundendienst und so weiter. 
Als nächstes werden 100 Punkte auf die Kriterien ver- 
teilt und damit eine Gewichtung erreicht. Will man 
eine außergewöhnlich preiswerte Maschine, wird man 
vielleicht 30 Punkte alleine auf das Kriterium Kauf- 
preis legen, während die Drehzahl nicht so wichtig ist, 
darum hier nur 5 Punkte. 

Die Benotung der einzelnen Kriterien sollte nach ei- 
nem Punktsystem 0-15 erfolgen, wobei 0 für beson- 
ders schlechte und 15 für extrem gut steht. 

Der Computer gibt zum Schluß eine Liste mit den ein- 
zelnen Bewertungspunkten aus und stellt das beste Er- 
gebnis besonders heraus. 

Das Programm arbeitet im Dialog mit dem Anwender. 
Besondere Tips für die Eingabe der Werte sind daher 
nicht nötig. 


NEUE READY- 
MELDUNG 


Sie kennen es ja: Unter MS-DOS können Sie das Be- 
reitschaftszeichen, hier vornehm ‚‚Prompt“ genannt, 
etwas freier gestalten. Daß zumindest beim CPC 464 
der Phantasie keine Grenzen gesetzt sind, um aus dem 
Cursor eine originelle Meldung zu machen, das bewies 
Michael Folz mit seinem Listing. 

Nach Start des Programms wird der Benutzer nach der 
in Zukunft gewünschten neuen Ready-Meldung gefragt 
die maximal 80 Zeichen lang sein darf. Nach Eingabe 
dieser POKEd das Programm ein paar Vektoren um, 
schreibt das Ausgabeprogramm in einen sonst nicht be- 
nutzten Speicherbereich (es geht also kein Speicher- 
platz verloren), und fertig. Schon redet der Compu- 


’ 


ter einen vertraulich mit „Hallo, Michael“, oder 
unterwürfig mit „Ich bin bereit, Meister“ an. 2» 
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| LISTING 


3 °’% EMAT * 
sg °'% Entscheidungsmatrix * 
0 °’% von Werner E.J. Arndt % 
8 °’% fuer * 
9 °’% Schneider aktiv % 
119 '’% CPC 464/664/6128 * 


MODE 8: BORDER 1:PAPER ®:PEN I 
MOVE 1,1:DRAW 639,1:DRAW 639,399: DRA 
WA41,399:DRAW 1,1 

218 LOCATE 7,3:PRINTT EMAT 

22®@ LOCATE 7,6:PRINT" ______ 

LOCATE 3,19: PRINT"Entscheidungs- 
LOCATE 8, 12:PRINT"matrix 

LOCATE 2,17:PRINT CHRS$(164) 
LOCATE 5,17:PRINT"W. Arndt / 1986 
FOR i=1 TO 4889: NEXT:MODE 2 

’ 


298 RRRRHRHRHHHEEN 
389 ’% Eingabeteil * 
319 HRRRRRRRRHHHHHK 
329 °’ 
339 ’%%% Anzahl Personen/Objekte *** 

348 ' 

358 LOCATE 18,1: INPUT"Eingabe der Anzahl 
der Personen/übjekte (max.12) : ",objan 
z 

368 CLS 

378 IF objanz=1 THEN 199 

380 IF objanz)12 THEN 19% 

398 ’ 

aa 'Rkk Personen-/Objektbezeichnungen * 

” 


419’ 
428 LOCATE 15,3: PRINT"Personen-/Objektbe 
zeichnung (max.3 Zeichen) 


439 DIM obj%(objanz) 

449 LOCATE 18,1:PRINT objanzj" 
/Objekte "ICHRS(243) 

#439 MOVE 1,349: DRAW 640,349 

469 FOR i=1 TO objanz:LOCATE 19,$+i:PRIN 

Ti5". 2 *,S2INPUT " *,obj$ti) NEXT 

478 SOUND 1,250, 39 

488 FOR i=1 TO objanz:LOCATE 35,5+1:PRIN 

T CHRB(242)5" Ok, ?* 

498 FOR j=1 TO 498:NEXT j:LOCATE 35,5+i: 

PRINT " ":NEXT i 

309 LOCATE 49,22: INPUT"Neue Eingabe : n 
/ sonst RETURN ",neu$s 

519 IF neu$="n" THEN CLS:IF neus="n" THE 

N 448 

329 °’ 

539 '#%k%* Anzahl der Bewertungskriterien 

“r 

549 °' 

359 CLS:LOCATE 18,1: INPUT"Wieviel Bewert 

ungskriterien (max.15) "sbewanz:!CLS 

5689 IF bewanz=® THEN 559 


Personen 
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578 IF bewanz?>13 THEN 559 

589 ' 

392 ' ik Bezeichnung der Bewertungskrit 

erien + 

1] 

618 MOVE 1,348: DRAW 649,348 

628 DIM bewanz (15) 

638 DIM ben$(15) 

648 LOCATE 18,1: PRINT bewanzj " 

gskriterien "ICHRS (243) 

658 FOR i=1 TO bewanz:LOCATE 19,5+i:PRIN 

Ti3". 2 *,:5INPUT " ",bewS$(i): NEXT 

669 SOUND 1,259,38 

678 FOR i=1 TO bewanz:LOCATE 45,5+i:PRIN 

T CHR$(242)5" OK. ?" 

688 FOR j=1 TO 488:NEXT j:LOCATE 45,5+i: 

PRINT " "INEXT i 

698 LOCATE 49,22: INPUT"Neue Eingabe !: n 
/ sonst RETURN ",neus 

788 IF neus="n" THEN CLS:IF neus="n" THE 

N 648 

719 ° 

729 ’%%%* Gewichtung der Bewertungskriter 
ien X%* 

739 ° 

748 DIM gew(15) 

7528 CLS:LOCATE 18,1:PRINT"Gewichtung der 
Bewertungskriterien "ICHR$ (243) 

768 LOCATE 18,3:PRINT’199 Punkte auf die 
";bewanzj" Kriterien verteilen" 

778 FOR i=l TO bewanz:LOCATE 19,5+i:PRIN 

T i5". "jbews(i),:LOCATE 35,5+i: INPUT *® 


Bewertun 


",gen(i) 

775 G0SUB 2980 

777 NEXT 

789 ’ 

799 ’%%%* Summe der Gewichungspunkte X%#%* 
899 ° 

819 sum=n 

828 FOR i=1 TO bewanz 

839 sum=sum+gen(i) 

849 NEXT 

859 LOCATE 35, 6+bewanz:PRINT " --------- 
n_ N 

869 LOCATE 33, 7+bewanz:PRINT sum" (Summ 
e) 

878 IF sum <> 1988 THEN LOCATE 35, 9+bewan 


z:IF sum <> 198 THEN PRINT" nicht genau 


198 Punkte !" 

875 IF sum <> 128 THEN sum=d 

889 FOR i=1 TO 2098: NEXT:IF sum <> 190 T 
HEN 758 

899 CLS 

9998 °’ 

AU EEE Sun a 2 2 2 2 2 2 2 2 2 2 2 22 2 22 2 2 2 2 2 2 2 212 203 


929 
939 
949 
959 
969 


’%* Eingabe der Bewertungspunkte * 
I IERRHHRHHHRHHRRHRBHRHAREHRHRHHHHEN 


DIM punktetobjanz,bewanz) 
DIM pusum(objanz) 


LISTING 


970 x=i 

988 LOCATE 19, 1:PRINT"Bewertungspunkte 
"SCHRS(243) 

999 MOVE 1,388:DRAW 649, 389 

1999 MOVE 1,359:DRAW 649, 359 

1819 MOVE 125,389: DRAW 125,1 

1928 FOR z=i1 TO objanz 

1939 IF x>1 THEN 1858 

1848 FOR i=1 TO bewanz:LOCATE x,6+i:PRIN 

T bensti):NEXT 

1858 LOCATE x+17,3:PRINT obj#(z) 

1068 FOR y=1 TO bewanz:LOCATE x+i6,6+y:1 

NPUT * ",punkte(z,y):pusum(z)=pusum(z)+p 

unkte(z,y):NEXT y 

1878 LOCATE x+16,6+y+2: PRINT pusum(z) 
1989 x=x+3 

1898 LOCATE 28,25:PRINT "Korrektur : 

sonst RETURN 

1198 as=INKEYS: IF a$="" THEN 1190 
1118 IF a$="j" THEN pusum(z)=Q 
i128 IF ag="j" THEN x=x-S:IF as="j" THEN 
1968 

1139 NEXT z 

1158 CLS 

1168 LOCATE 18, 1:PRINT"Entscheidungserge 

bris "3 

1178 MOVE 1,380:DRAW 649,380 

1188 FOR i=1 TO 18:L0CATE 36+i,1:PRINT C 

HR$(243)3: FOR j=1 TO 280: NEXT j 

1199 LOCATE 36+i1,1:PRINT " "J:NEXT i 
1298 ' 

1218 RR 

1228 '’%* Berechnungsteil * 

12398 HRRRRRARHRRRHRRHANN 

1249 ' 

1259 DIM esum(13) 

1268 FOR zei TO objanz 

1278 FOR y=1 TO bewanz 

1288 punkte(z,y)=punkte(z,y)*gen(y) 

1298 esum(z)=esun(z)+punkte(z,y) 

1389 NEXT y:NEXT z 

1318 ’ 

1328 ’%%%* Endergebnis #%** 

1338 ’ 

1348 
1359 x=1 

1368 FOR i=1 TO objanz:LOCATE 4+x,3:PRIN 

T obj$ti):x=x+5: NEXT 

1378 ma=d 

1388 x=1:FOR i=1 TO objanz:LOCATE S+x,?: 

PRINT esum(i)ixex+S 

1398 ma=MAX (ma,esum(i)):NEXT 

1488 LOCATE 5,19: PRINT"bester Wert : "j 

ma)" Punkte 

1419 i=lix=i 

1428 DIM a(13) 

1438 a=esum(i) 

1459 IF a=sma THEN GOTO 1588 

1468 i=irl 

1478 IF i>12 THEN GOTO 1539 


3 / 


MOVE 1,289:DRAW 649, 289 
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1488 GOTO 1439 

1498 as=INKEYS: IF as="" THEN 1499 

1588 LOCATE 35, 12+x:PRINT"’erreicht von : 
"sobjsti) 

1519 imitlixexti 

GOTO 1439 

’ 


I IIRRRRRRRHRHHHN 

1558 ’%* Neuer Start * 
TEA: 

1379 

LOCATE 3,22:PRINT" Neu > >) 

e Taste druecken _x7ı 

as=INKEYS: IF as="" THEN 1598 

CLEAR 

GOTO 18 

’ 


ein 


IRRE 
’'%* Einzeladdition * 
III NN 
’ 


sum=zsum+gen (1) 
2069 LOCATE 35,3:PRINT" = "jsum 
2878 RETURN 


1 , 

2 °’% NEUE READY-MELDUNG * 
3 ’% VON * 
a4 ’% MICHAEL FOLZ * 
>= ’%* FUER * 
6 ’%* SCHNEIDER AKTIV * 
-»% CPC 464 * 
8 RHARHHRHHAHHBRHRRRBRHHHRHRHSHHHHHEE 


18 MODE 2:PRINT TAB(SQ)CHR®(24)" Neue Re 
ady-Meldung "CHRB(24):PRINT TAB(B)"(C) E 
SCape! Software 1986 - geschrieben von 
Michael Folz" 
20 LOCATE 1,18:PRINT"Bitte Kontrollzeich 
en mit eingeben (ältrl-JüsZeilenvorschub 
‚Actril-Gü=Beep etc..)":LOCATE 1,18:LINE 
INPUT"Neue Ready-Meldung: "ja®s: IF LEN(a$) 
>80 THEN LOCATE 1,18: PRINT CHRS(29) :LOCA 
TE 1,14: PRINT"))> Zu lang !!!":G0T0 28 
30 i=&BEAB:READ iM:WHILE I®C)"x"iPOKE 1, 
VALt"R"+iS)i=i+L:READ iS: WEND 
48 DATA 31,9,c9,cd,62,c1,cd,d6,dd,dc,b6, 
be,cd,48,bb,cd,86,c3,3 a,aa,ad,d6,2,28,9 
‚32,aa,ad,cd,df,ca,eb,38,c6,21,cb,be,cd, 
41,03,c3,96,c9,x 
5@ FOR j=1 TO LEN(a®):POKE i-1+j,ASC(MID 
$(38,j,1)):NEXT:POKE i+j-1,13:POKE itj,d 
62 i=KkACBL:POKE 1,&C3:POKE i+1,KkAg: POKE 
it2,&BE:CLS:END 


BIG TEXT 


Möchten Sie auf Ihrem Bildschirm große Wörter, Tex- 
te oder dreidimensionale Schriftsten erstellen? 

Mit dem Programm ‚‚Big Text‘ können Sie schnell 
und einfach Buchstaben, Zeichen, Wörter oder ganze 
Texte beliebig grafisch vergrößern. Sie können sogar 
die Vergrößerung in x- und y-Richtung getrennt ein- 
stellen. Die Vergrößerung kann an einem beliebigen 
Punkt auf dem Bildschirm dargestellt werden und 
auch über den Bildschirm hinausragen. Dabei arbei- 
tet das Programm unter allen drei Bildschirmmodi. 
Das Programm wird dabei über einen RSX-Befehl ge- 
steuert,der während des Durchlaufes auch mit Break 
zu stoppen ist. 

Das MC-Programm hat eine Länge von 530 Bytes 
und ist nicht(!) an feste Speicherplätze gebunden. 

Es kann an den Plätzen zwischen 16384 und 
HIMEM -530 eingelesen werden. 


Tips zum Tippen 


Tippen Sie „Big Text‘ ein und speichern Sie es vor- 
sichtshalber ab. Wenn Sie dann das Programm starten, 
werden evtl. Fehler in den Data-Zeilen angezeigt. An- 
dernfalls wird ein kleines Menü erscheinen. Speichern 
Sie damit den fehlerfreien Basiclader ab. 

Nun können Sie das Demoprogramm eingeben und 
direkt hinter diesem Lader abspeichern. Ist dies ge- 
schehen, dann laden Sie den Basiclader und starten 
Sie ihn. Am besten speichern Sie mit Hilfe des Menüs 
das Binärprogramm ab. Anschließend können Sie das 
Demoprogramm starten, wobei deutlich wird, wie 
leistungsfähig das kleine MC-Programm ist. 


Zur Bedienung von Big Text 


Eingelesen wird das MC-Programm mit 

MEMORY Ladeadresse-1 

LOAD “BIGTEXT.BIN“, Ladeadresse 

CALL Ladeadresse 

Dem CPC steht nun folgender neuer RSX-Befehl zur 
Verfügung: 

BIGTEXT,X-Vergr. Y-Vergr, Textlänge X- und Y-Ver- 
größerungen können maximal 127 Punkte betragen, 
die Länge des Textes liegt bei maximal 80 Zeichen. 
Bevor jedoch der Befehl eingegeben werden kann, 
muß der zu vergrößernde Text in Bildschirmzeile 25 
ausgegeben werden. 

Das Programm tastet dann dort jeden einzelnen 
Pixel ab und gibt es dann, an der zuvor mit MOVE 
festgelegten Stelle, auf dem Bildschirm aus. Dabei 
muß beachtet werden, daß alle INKs, ausgenommen 
INK 0, übertragen werden. Da INK 0 meistens die 
PAPER-Farbe darstellt, kann die Großschrift einer 
Grafik überlagert werden, ohne die Grafik zu zerstö- 
ren (siehe Demoprogramm). 

Soll INK O dennoch übertragen werden, so ist dies 
leicht mit POKE Ladeadr+322,24 zu ändern. Die 
Standardeinstellung wird dann mit POKE 
Ladeadr+322,32 wieder hergestellt. 

Sind bei der Befehlseingabe falsche Parameter ge- 
wählt worden, so ertönt ein Beep-Ton und die Ver- 
größerung wird abgebrochen. 
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LISTING 


1 RRRRRRRRRRRBRRRRRRHRHRHRRRRRHHHERN 


2a ‘+ THE BIG TEXT %* 
39 '%* BASICLADER %* 
a '%* VON * 
sg °'%* GEORG HUONKER * 
a '%* FUER * 
a ’% SCHNEIDER AKTIV * 
BB ’%* CPC 464/664/6128 % 
9 RRRRRRHHHRHRHRBBHRRHHRHRHRRRHRHREE 
109 ’ 

11a ’ 

129 

138 ' MC-Programm in DATA-Zeilen 


148 DATA 205,147, 187,059, 059, 227,081,08 
1,017,033, 000, 025, 229, 209,019,019,-1537 
158 DATA 019,019, 115,235, 114,043, 229, 19 
3,043, 043,243, 043, 205, 209, 188, 201, -1742 
160 DATA 000, 000,000,000,000, 000,024, 00 
8,066, 273,071,084,069, 288, 212,000, -0695 
170 DATA 254, 003,032,034, 205,147, 187,85 
9,059, 227,051,051, 229,001, 212,081,-1752 
180 DATA 209, 221,126,004, 119,035, 221,12 
6,002, 119,225, 229,201, 202, 001,089, -1649 
190 DATA 221,126,000,119,024, 006,962, 28 
7,205,090, 187, 201,225, 229, 201,202, -1905 
200 DATA 201,0209,278, 205,217, 188,254,28 
2,249, 208, 203, 033, 254, 001,242, 202, -1335 
210 DATA 203,033, 175,203, 233,023, 203,03 
3,023, 203,033, 023,071, 225, 229,017, -173% 
220 DATA 202,0201,025,113,035, 112,205, 19 
8, 187, 193, 197, 229,296, 105,001, 284, -2123 
230 DATA 201,009, 115,035, 114,229, 001,21 
2,008,209, 115,035, 114, 225, 209,035, -1258 
240 DATA 115,235, 114,035, 054, 200,035,208 
4,200, 235, 054, 014, 035,254, 200,062, -0696 
250 DATA 066, 205,030, 187,032,011,225, 22 
9,001, 210,001,009, 126, 254, 254,032, -1872 
260 DATA 002, 225, 201,225, 229,001, 202,28 
1,089 278,035, 070, 225, 229,017, 208, -1957 
270 DATA 201,025,294,035,286, 235,183, 23 
7,066, 032,061, 235, 254, 200,043,054, -1441 
288 DATA 200, 035,035,053, 053, 225, 229,20 
1,217,001,009,094, 035,286, 091,014, -1288 
250 DATA 200, 183,237,066, 115,235, 114,22 
5, 229,001, 206, 001,209,094,035, 086, -1636 
300 DATA 229,001 ,206, 200,009, 126, 203,03 
9,206, 200,079, 183, 235, 237, 066, 235, -1654 
310 DATA 225,114,043,115,024,002,024, 18 
1,225, 229,001, 210,001,009, 078,006, -1457 
320 DATA 200,043,086,243,294,296, 195, 28 
5,240, 187,225, 229,201, 216,001,089, -1788 
330 DATA 119,225, 229,201, 212,001,009,07 
8,235, 070,035, 113,035, 112,035, 126, -1435 
349 DATA 234,000,032,023, 225, 229,017, 20 
4,001,025,094, 035,086, 229, 038,000, -1492 
350 DATA 105,025, 235, 225, 114,043, 115,82 
4,057,024, 187, 225, 229,001, 216,081, -1826 
360 DATA 289, 126,205, 222, 187, 225,229, 28 
1,204,001,009, 094,035, 086, 035,078, -1746 
370 DATA 035,070,296, 195,205, 234, 187,22 


5,229,001,214, 001,009, 053, 040,020, -1724 

380 DATA 225, 229,201, 204,001,200,009,29 
4,235,086, 019, 114,043, 115,224, 283, -1492 

398 DATA 024, 199,024,094, 225, 229,001, 21 
5,001,209,2053,049,242,243,043, 043, -1285 

400 DATA 126,035,035, 119, 225, 229,201, 28 
4,201,009, 094, 035,086, 235, 006, 000, -1449 

410 DATA 861,079, 183, 237,066, 235, 114,04 
3, 115,035, 035, 278,035, 278,011, 811,-1488 

420 DATA 112,043, 113,197, 225,024, 148,22 
5,229,001,204,201,009,094,235,086, -1746 

430 DATA 919,114,043,115,035,035,094, 03 
5,086, 225, 229,081,213,201, 089, 126, -1388 

448 DATA 235,022,0200,061, 203,039,095,02 
5,235, 225,229, 001,206, 201,089, 115, -1701 

450 DATA 035, 114,225, 229,201, 208,001,28 
9,294,035, 086,019, 114,043, 115,024, -1352 

460 DATA 143,200,200,200, 200, 000,0200, 00 
2,200, 200, 200, 000,000, 200, 200,000, -0143 

470 DATA 200,200, -0000 

488 ’ 

499 
99 
sa 
520 
539 
549 
sg 


’ Datas einpoken 

MEMORY 34999: adr=35009 

FOR ie14 TO 47 

READ op#: IF LEFT#(op®#, I)="-"THEN 359 
op=VAL (op) :POKE adr,op 
adreadr+lipsumspsum+op:GOTO 32% 

IF psum+VAL (op®) =@ THEN 378 


360 PRINT" DATA-Fehler in Zeile", i*10: 
END 

578 psun=d: NEXT 

898 ’ 

578 ' Programm sichern 

629 MODE 1 

#129 PRINT" THE BIO TEXT" 
628 PRINT" EBZEZZISBODEDENRERZERENZ" 
638 LOCATE 3,19:PRINT"i ==) Binaerprogra 


mm abspeichern" 

648 LOCATE 3,12:PRINT"Z2 ==) BASIC-Lader 

abspeichern" 

658 LOCATE 3,14: PRINT"3 ==) Demoprogrann 
laden+starten" 

668 LOCATE 1,28: a8=INKEYS 

678 IF a@="i"THEN SAVE"bigtext.bin",b,33 

209,539:60T0 399 

668 IF as="2"THEN SAVE"bigtext.bas":GOTO 
599 

699 IF as="3"THEN CALL 35988: RUN"bigdemo 
.bas" 

7089 GOTO 669 

7129 END 


BIG BLEIBT BIG: 


Schneider 
aktiv! 
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LISTING 


INT 


RRHRHRRRBORHBSHAHRBRSHSHRRBSHHHNGE 


'%* _ DEMOPROGRAMM FUER BIG TEXT %* 
’* VON * 
'* GEORG HUONKER * 
’* FUER * 
'* SCHNEIDER AKTIV * 
'* CPC 464/664/6128 * 
HHHRHRBHHRHHRHHBHBRHRRRHRRHBHRREE 


MODE 1:BORDER 2 
’ 


'ilel5:i2=218: 1309: ’ 

ek nur GRUENMONITOR ! ! ! 
il=6:12=14:19=2:' 

Watt nur FARBMONITOR ! ! ! 


INK 8,9: INK 1,i15INK 2,12: INK 3,13 


* Hintergrund 

ORIGIN 318, 206,0, 638, 398,18 

DEG: spi=19 

FOR n=1i TO 45988 STEP 19 
spi=spl+9.8:sp2=sp1+20 
xisSIN(n)*spl:Yi=COS(n)*spi 
x2=5IN(n+20)*sp2: Y2=C0S (n+28) tsp2 
MOVE x1,YL:DRAW x2,Y2,1 
NEXT:ORIGIN 2,2,0,638, 398,2 

1) 


’ Zeile i 

aß="Georg Huonker" 

LOCATE 1,25: PRINT a# 

FOR xp=@ TO 286 STEP 2 

IF TEST(xp,yp)<>2@ THEN PLOT xp,yp,i+ 
(RND(1)%3) 

NEXT 

IF yp<=14 THEN yp=yp+2:G0T0 258 

MOVE 18,399: 8BIGTEXT,3,4,LEN(a®) 

» 


' Zeile 2 

aß="presents" 

PEN 1:L0CATE 1,25:PRINT 886 

MOVE 66, 320: 65BIGTEXT,4,2,LEN(a$) 
’ 


' Zeile 3 

aß="THE BIG TEXT" 

PEN 3:LOCATE 1,25:PRINT a$ 

MOVE 32,278: 8BIGTEXT,3,5,LEN(a$) 
PEN 2:LOCATE 1,25:PRINT a® 

MOVE 28, 266: 8BIGTEXT,3,3,LEN(a8) 
1 


’ Zeile 3 unterstreichen 
88=5TRING$ (12, CHRS(298) ) 

PEN 3:L0OCATE 1,23: PRINT a8 

MOVE 32,198: 5BIGTEXT,3,5,LEN(a8$) 
PEN 2:LOCATE 1,235: PRINT a$ 

MOVE 28, 186: 5BIGTEXT,3,5,LEN(a®) 
’ 

' Zeile 4 

aß=cHRB(164)+" 1986 by” 

PEN 1:LOCATE 1,25: PRINT a8 

MOVE 129,139: 65BIGTEXT,3,2,LEN(a$) 


398 
539 
568 
578 
389 
398 
680 
619 


' Zeile 5 

as="SCHNEIDER-aktiv" 

PEN 3:LOCATE 1,25:PRINT a$ 
MOVE 74,88: 8BIGTEXT,2,3,LEN(a8#) 
’ Ende 


LOCATE 1,25: PRINT " Bitte B 


REAK druecken" 


628 
638 
648 
659 
668 
678 
688 
698 


Mm Ri Hi 


NN 


INK A,il 
INK 2,12 
INK 3,13 
GOSUB 758 
INK 1,12 
INK 2,13 
INK 3,11 
GOSUB 758 
INK 1,13 
INK 2,i1 
INK 3,12 
GOSUB 758 
GOTO 628 
FOR nei TO S@B:NEXT 
RETURN 


fc T 


Ext 


N 


NIS ’ 
Din ”., = 


— 


SCHNET 
NR: un Bir 


RSX-BEFEHL 


FILL 


Über den Basic-Befehl FILL konnten sich nur die Be- 
sitzer eines CPC 664 und eines CPC 6128 freuen, der 
Interpreter des 464 verstand die Anweisung nicht. 
Christian Fibikar sandte uns ein Listing zu, das den 
Einsatz dieses Grafikbefehles als RSX-Erweiterung 
nunmehr auch beim 464 erlaubt. 


Programmbeschreibung 


Das Basic-Programm lädt ein Maschinenprogramm an 
das Ende des Basic-Rams und installiert den RSX-Be- 
fehl FILL. Mit diesem Befehl kann man jede erdenk- 
liche und komplizierte Form ausmalen. Dabei be- 
grenzt nur der Speicher die Komplexität der Figur. 
Nachdem das Maschinenprogramm (Länge 310 Bytes) 
im Speicher ist, wird der RSX-Befehl in Zeile 240 
durch Aufruf der Initialisierungsroutine installiert. 
Diese Initialisierungsroutine darf nur einmal ange- 
sprungen werden. 
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LISTING 


Da der FILL-Befehl rekursiv arbeitet (das heißt, er 
ruft sich selber auf) und somit jede erdenkliche Fi- 
gur ausmalen kann, braucht er genug Speicherplatz 
zur Zwischenspeicherung von Werten. Dazu reserviert 
die Initialisierungsroutine 2 KByte am Ende des Basic- 
Rams und das HIMEM wird noch einmal um zwei 
KByte herabgesetzt. Will man sehr komplexe Figu- 
ren ausmalen, dann empfiehlt es sich, einen größeren 
Speicherbereich für den FILL-Befehl zu reservieren. 
Dazu werden zwei Parameter bei der Initialisierung 
übergeben. Der erweiterte Initialisierungsbefehl 
lautet: 

CALL basis,int1 ‚int? 

Dabei gibt intl den Anfang und int2 das Ende des 
Speicherbereiches an, beide Parameter müssen aller- 
dings größer als &3FFF sein. Aber normalerweise 
reicht der standardmäßig eingestellte Bereich aus. 

Ist der RSX-Befehl nach Ansprung der Initialisie- 
rungsroutine nicht installiert, dann bedeutet das, daß 
die untere Grenze des Speicherbereichs tiefer als 
&4000 liegt. Auch muß der FILL-Befehl selbst in 
den zentralen 32K RAM liegen. 

An dem Basic-Programm ist noch ein kleines Demon- 
strationsprogramm angehängt, welches Ellipsen 
zeichnet und diese ausmalt. Der Ladeteil des Basic- 
Programmes kann auch in andere Programme einge- 
bunden werden. 

Der Befehl selbst hat folgendes Format: 
IFILL,y,yfl,f2 

Die Variablen x und y sind die Koordinaten des Start- 
punktes und fl, f2 sind Inks. Ist fl ungleich f2, dann 
ist fl die Farbe, mit der ausgemalt wird, und f2 die 
Farbe der Punkte, die ausgemalt werden. Ist fl gleich 
f2, dann ist fl die Farbe, mit der ausgemalt wird 

und die als Grenze dient, das heißt, daß alle Punkte 
die nicht die Farbe fl haben, ausgemalt werden. 

Die Stiftfarbe wird mit fl gesetzt. 


PUB = 2 2 2 2 2 2 2 2 0 0 2 3 2 2 22 2 0 2 2 22 2 2 2 2 2 2 2 227 


20 '* FILL.-ROUTINE x 
3 ’%* VON * 
a ’%* CHRISTIAN R. FIBIKAR * 
so ’%* FUER * 
6 '’%* SCHNEIDER AKTIV * 
7 °’%* CPC 464 * 


BB RRRRRRHHRRRRRRREHRHHHRRRRHRHHRHHNRE 

189 basis=HIMEM: IF basis‘(® THEN basis=ba 
sistl6”d 

119 basiszbasis-210:summe=d: IF basis’=k4 
289 THEN 149 

126 PRINT "Kein Speicherplatz mehr frei 

im dem zentralen 32K Ram'":END 

139° 

ad WHILE addie3ıd 

159 READ obj:IF 0bj“1909 THEN POKE ba 
sis+tadd,0bj:60T0 239 

160 IF 06,‘10099 THEN GOTO 21% 

179 IF summes(obj -10000) THEN 290 

180 fehlerzfehler+1l!zadr =PEEK (KAEZE) + 
PEEKiKAEZF)*256 

199 PRINT "Summenfehler in Zeile";PEE 
Ktzadr ) +»PEEK(zadr +1)%2%& 

?aa summex=f?!G0TO 249 


111 


219 adr zob) - IAASıbasısihi=iNTlacr 7286 
I:EQFE add+basis,adr -hi*25%6 

are adtzadtt1;POFE adi+rbasis,hi 

230 addzaddri:summexsummerobj 


739 WEND!IF +ehler=9 THEN MEMORY basis-i 
:CALI. basis:!G0TO 10089 

258 PRINT "Es sind’stenlerj"Fehler aufge 
treten. ":END 

268°’ 

279 DATA 183, 32,26,92,123,174,84,93,1,9, 
8,183,237,66, 34,123, 11499 
280 DATA 174,35,229,1,0,69,183, 237,66, 22 
3,216,24,12,221,110,2, 11799 
299 DATA 221,192,3,221,99,0,221,86,1,237 
‚83,1877,1,16,0, 12363 
30% DATA 9,34,1282,33,1298,1,1962, 205,20 
9,188, 201,1067, 15589 
319 DATA 195,19072,70,73,76,294,0,237,113 
‚1294,49,0,0, 13385 
320 DATA 221,126, 2,208, 222,187,221,126,2 
‚221,190,0,62,40,32,2, 11859 
339 DATA 62,32,50,1135,59,1157,59,1189,2 
21,99,6,221,86, 14344 
349 DATA 7,221,1190,4,221,102,3,209,1302, 
220,1129,237,123,1294, 15188 
350 DATA 201,205,1263, 221,190,0,49,2,19, 
201,213, 229,42,48,179, 13853 
368 DATA 183, 237,82, 223,27,48,8,209,1263 
‚221,190,0,40,237,19, 12983 
37?@ DATA 235,227,235,229,19,42,50,179,18 


3, 237,92, 225,56,8, 205, 1263, 13475 
38@ DATA 221,190,9,490,237,66,75, 209,197, 
213,229, 11,58,56, 179, 11981 


390 DATA 205,98, 188,225,209,193, 213,197, 
35,237, 78,52,179,3,229, 183, 12518 
408 DATA 237,66,225,193,48,14, 197,208, 12 
73,193, 235, 229,183, 237,66, 13691 
410 DATA 225, 235,56, 242,43, 237, 91,54, 179 
‚229,183, 237,82, 225,43, 209, 12578 
420 DATA 49,16,56,14,197, 208, 1273,193,23 
5,229,183,237, 66, 225,238, 13494 
430 DATA 56,242,35,80,89,19,201,197,213, 
229,205, 1395, 225, 209,193, 13498 
440 DATA 201,229,237,115,1296,42,1296, 1, 
0,0,183, 237,66, 228, 14128 
459 DATA 218,1137,198,1129,0,0,0,0,0,0,0 


»2,297,252, 13138 
460 DATA 150,207,48,152,48,152, 

10757 
470 DATA ® 
599 °’ 


S19 ’ HHHHRBHE Demoprogr anmHHHHHRHRHRHN 

S28 

1808 MODE 9:RANDOMIZE TIME:DEG 

1818 ri=INT(RND#LS9+19) ir2=1INT (RND#1S0+1 

Q) :#=INT(RND#L6) :ORIGIN RND#649, RND*400 
1828 DEG:PLOT ri1,8,+:FOR w=8 TO 368 STEP 
18: DRAW COS(wI#r1,SIN{wI#r2:NEXT w 

1839 DRAW r1,0:8FILL,9,0,+,4:G0T0 1918 


LISTING 


SCARBURY 
CASTLE 


Mit Scarbury Castle wollen wir Ihnen ein Adventure 
von Jens Beckmann präsentieren. Sicherlich ist das 
Listing etwas lang, aber denken Sie daran, daß es kei- 
ne Abenteuerspiele mit 3 KByte Umfang geben kann. 
Außerdem bleibt dafür die Programmbeschreibung 
erfreulich kurz und in spätestens drei Minuten können 
Sie mit dem Eintippen beginnen. 


Das Spiel 


Scarbury Castle ist eine Art Labyrinthspiel. Der Spie- 
ler bewegt sich durch die auf vier Etagen verteilten 
160 Räume einer alten, unbewohnten, schottischen 
Burg und versucht verzweifelt, die drei Schlüssel zu 
finden, die er benötigt,um das Gebäude zu verlassen. 
Im Spiel selber wird alles weitere erklärt und eine An- 
leitung ist ins Programm eingebaut. 


18 

22 '%* SCARBURY * 
3a '* LADER FUER SCARMAIN * 
a '%* VON * 
32 '%+ JENS BECKMANN % 
a '%* FUER * 
a ’% SCHNEIDER AKTIV * 
ee ’* CPC 464/664/6128 * 


9 RRHRRHHRRRRBRRHERBRRRHHHHHRHEN 
108 DATA 0,9,119,250,110,320, 132,344, 159 
‚320,157,320,158,329,167,9329,167,321,176 
‚321,176,328, 185,328, 183,320,199, 328, 228 
‚302, 241,302,241,351,231,356,231,371,242 
‚371, 292,361,232,361,252,370, 263, 370, 262 
‚360, 273,368, 273, 370, 284,370, 284,361 

118 DATA 274,330,274,3093,294,277,294, 258 
‚305, 223,312,195,336,157,415,137,0,0,118 
‚250,77,247,20,2,88,249,104,282,196,279,1 
10,279,2,0,110,299,194,299,104,283,0,8,1 
19,259,195,219,94,193,90,155,85,146,79,1 
68,78,195,81,232,60, 245,49, 259, 26, 246 
120 DATA 19,252,0,0, 248, 339,253, 359, 253, 
391,298,341,248,331,0,0, 260,320, 265, 329, 
265, 318, 268, 310,260, 9320, -l,-i 

130 RESTORE 106 

1948 CLS:BORDER 8: INK 9,0: INK 1,26: PAPER 
8:PEN 1:MODE 1 

158 READ x,y:IF x=@ THEN READ x,y:MOVE x 
ıy:60TO 158 

168 IF x>8 THEN DRAW x,y,1:G0T0 159 

178 LOCATE 39,3: PRINT"Scarbury" 

189 LOCATE 30,7:PRINT” Castle" 

198 LOCATE 38,15: PRINT CHRE(L&4)]" 1987" 
208 LOCATE 39,17: PRINT"J. Beckmann" 

218 LOCATE 1,23:PRINT"HAUPTPROGRAMM WIRD 
GELADEN. " 

239 RUN" !scarmain" 
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LISTING 


vo ’% 


4 GOSUR 


ae EEE 222 22 2 2 2 2 2 2 2 2 2 2 2 272 5 2 27275 272755 


RHRRHRHRHHREIOHREIRHRRRIEHEIGHRRIBIHREIGE 


SCARMAIN 
von 
JENS BECKMANN 
FÜER 
SCHNEIDER AFTIV 
EPC I64/654/612R 


Pe ee 


PER: GNSUR 9240 


te SCTO 8590 


GOSUB 
GOSUR 


999 
6 Zittern 


9498 
3090 


GOTO 7940 
REM ##%#%% Raumbeschreibungen 
REM DATA 


‘Raum-Nr, ,Raumbezeichnung, 
tuer Tuer-Status 7 Wand 


190A REM RER 2.KELLEP KRRK% 


119 DATA 
1020 DATA 
‚2,1,9 

ı834 DATA 
1248 DATA 
1a8A DATA 
‚2,1,0 

1062 DATA 
ı187@ DATA 
1888 DATA 
1899 DATA 
1180 DATA 
1119 DATA 
1128 DATA 
1139 DATA 
1148 DATA 
1159 DATA 
1168 DATA 
1178 DATA 
1180 DATA 
1190 DATA 
12a DATA 
1219 DATA 
1228 DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


111, Skelett-Raun, 0,0,2,0,0,0 
I12,Geheimes Treppenhaus, 0,8,1 


113,Verlıes 111,0,1,9,9,9,0 
114,Gerıchts-Saal,0,0, 1,1,9,9 
I18,Personal-Treppenhans, 9,0,1 


121,Flur,1,1,1,0,0,9 
122,Flur,1,2,1,1,9,9 
123,Verlies 11,0,1,0,9,9,8 
124, Flur, L ‚Pi 110,9 
125, Beunnen- Raum, 1,0,1,0,0,0 
131, Flur,1,9,1,0,0,0 
132, Kerker 1,9,9,1 
133, Verlies 1 ‚9,8 
134, Flur,1,0,1,9, 
135, Quellen- Raum 
141, Flur,1,0,1,8 
142, Kerker 11,2 
193, Treppenhaus 
144,Flur,1,1,8 
145,Karzer,4,0 
1$1,Flur,1,1,6 
1] 
[.) 


152,Flur,9,1, 
153, Genoelbe, 
154, Geroelbe,® 
155, Gewoelbe, 9 
l6l,Kerker III 
162,Geneimes Ge 


163, Gewoelbe,l,i 
164, Gewoelbe,l,!. 
165, Gewoelbe, 1,0 
1?1,Kerker IV, 1 
172, Folterkamner 
173, Gewoelbe, 1, 
174, Gewoelbe, I,i 
175, Genoelbe, 9,0 
181, Kerkerneiste 
182, Erstaufseher, 
183,Hiltsaufseher, 
189, Einsiedler,1,i 
185, Schlossgespens 


$v Se. - u vw u. De - - 
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gi 


1410 REM KRa#% 1.KELLER KERRE 


132€ DATA 
143% Data 
‚1,6, 
1930 DATA 
a 

1459 DATA 
146% DATA 
tt 
147@ DATA 
1488 DATA 
1478 DATA 
1599 DATA 
1510 DATA 
‚o 

1528 DATA 
‚o 

1539 DATA 
1548 DATA 
1858 DATA 
1568 DATA 
187% DATA 
1588 DATA 
1598 DATA 
1609 DATA 
161@ DATA 
1629 DATA 
1639 DATA 
1648 DATA 
a 

168% DATA 
1669 DATA 
1670 DATA 
‚2 

1680 DATA 
1698 DATA 
1708 DATA 
1718 DATA 
1) 

1728 DATA 
1739 DATA 
1749 DATA 
‚o 

1758 DATA 
1) 

1768 DATA 


211,Familiergruft,0,4,0,0,9,8 
21?2,0eheimes Treppenhaus, 9,0,1 


213,Materiai-Kammer ,%,1,1,0,0, 


214, Flur,0,1,1,2,0,8 
218, Personal-Treppenhaus, 9,0,0 


z21,Watterkeller,0,1,3,9,9,0 
222, Fackelraum,1,0,1,1,0,0 
223, Werkstatt,1,0,1,0,0,0 
224,Flur,1,1,1,0,9,0 

225, Kartoftei-Keller,0,0,1,1,0 


231,6rabstein-Kammer ,1,1,9,0,0 


232,Wahrsagerin,1,0,1,1,9,0 
233, Geraete-Kamner, 1,2,0,0,0,0 
234, Flur,9,2,1,1,0,0 

235, Wein-kKeller,1,0,0,1, 
241, Sarg-Kammer, 1,9,1,9, 
2492,Ahnen-Galerie,1,1,ß, 
243, Treppenhaus, 0,3,0,1, 
244, Flur,3,1,1,1,9,0 
245, Kellermeister,0,0,1,1,0,0 
251,Vampir,3,0,8,0,9,9 

232, Teppich-Lager ,9,0,1,0,2,8 
233, Werkzeug-Kammer ,09,1,4,0,90, 


2,8 
9,0 
1,0,0 
1,1 


254, Flur,1,2,1,1,9,0 
258, Kohlen-Keller,1,0,2,2,8,0 
26l,Geruenpel-Kammer ,0,1,1,0,0 


262, Flur,1,1,1,1,0,8 

263, Flur,4,1,0,1,0,2 
264,Flur,1,1,1,1,0,8 

265, Heizungs-Keller ,0,0,0,3,0, 


271, Abstell-Kammer ,3,0,0,0,0,0 
272, waeschemangel,1,1,0,9,9,8 
273, Trockenkeller 11,8,1,0,1,0 
274, Trockenkeller 1,2,1,9,1,8, 


275, Weschkusche,9,0,90,4,0,9 


1778 REM X#%% ERDGESCHOSS KH 


1780 DATA 
‚0,0 

1790 DATA 
‚2,8 

1808 DATA 
1810 DATA 
1828 DATA 
1830 DATA 
‚o 

1840 DATA 
1859 DATA 


si1,Schlafraum Pfarrer ,0,1,0,0 
312,Wohnzimmer Pfarrer,2,1,9,1 
313, Schlosskirche,2,1,1,1,9,2 
314, Donnerbalken,2,0,8,3,2,8 
315, Personal -Treppenhaus,9,8,1 
321, Musikinstrumente, 9,1,1,9,8 


322,Konzertsaal,2,1,0,1,0,8 


323, Vorraum Konzertsaal,1,1,4,20 


LISTING | 


18629 DATA 
1878 DATA 
1888 DATA 


1898 DATA 
19908 DATA 


1918 DATA 
1928 DATA 


1938. DATA 
1948 DATA 


1958 DATA 
19768 DATA 
1978 DATA 
1988 DATA 
1998 DATA 


2088 DATA 
2012 DATA 
2020 DATA 
2038 DATA 
2048 DATA 
2058 DATA 
2068 DATA 
2878 DATA 
2080 DATA 
) 

2898 DATA 
2108 DATA 
2118 DATA 
2122 DATA 
2130 DATA 
2148 DATA 
‚2 

2158 DATA 
2160 DATA 
2178 DATA 


2188 REM Hit 1. OBERGESCHOSS iHHt* 


2198 DATA 
8,8 

2208 DATA 
2,8 

2218 DATA 
r) 

2228 DATA 
2238 DATA 
‚12,1 
2248 DATA 
‚2,8,8 
2258 DATA 
‚3,8,8 
2268 DATA 
2278 DATA 
2268 DATA 
2298 DATA 
‚2,8 
2308 DATA 


324,WC Damen, 2,2,2,3,8,2 
325, Flur,1,ß, 1,2,8,8 
331, Thesatergarderobe, 1,1,2,28,2 


332, Burgtheater ,2,1,8,1,9,2 
333, Vorraum Theater ,4,4,1,1,9, 
334,WC Herren, 2,2,2,1,80,8 
335,Ruheraum Personal, 1,9,1 
6 
ß, 


‚Bd, 
341, Eingangshalle,2,1,2,6,2,2 
342, Gaestegarderobe,2,1,8,1,2, 
343, Treppenhaus, 1,8,1,1,1,1 
344,WC Personal,2,1,1,82,2,0 
345, Spuelkusche, 1,8,1,2,20,28 
351,Bar,0,1,1,0,0,0 
332, Aufenthaltsraum, 2,1,4 


353, Speisesaal,1,i,3,Ll, 
334, Anrichte,1,4,1,1,8, 
355, Kueche, 1,2,3,1,0,28 
361, öruener Salon,l,i, 
362,Roter Salon,4,4,1, 
363, Blauer Salon,3,2,1 
364,Kalte Kuseche,1,1,ß 
365, Geschirrkammer ‚3,8 
371, Grosser Leseraum, 4 


372, Bibliothek, 1,3, 2,1, 
373, Billardzimmer,i,i,i 
374, Konterenzsaal, 9,2, 
375, Vorratskammer , 1,2, 1 
sBl ‚Wintergarten, i, | ‚2,0, 
382,Kleiner Leseraum, 2.1, 


383, Schachzinmer ,1,3,9,1 
384, Klavierzimmer ,8,2,®, 
365, Fleischkammer ,4,9,9, 
411,Schlatzinmer Graf,0,1,1,0, 
412,Ankleideraum Graf, 2,1,1,1, 
413, g9raetliches Bad,9,9,3,1,2, 


414, Flur,8,1,1,0,0,% 
415,Personal-Treppenhaus, 9,9,2 


#21,Schlatzimmer Graefin,1,3,1 
422, Ankleideraum Graefin,i1,l,i 
423, Zotfe,3,4,0,1,2,2 
424,Flur,1,1,1,9,9,8 

425, Waeschetrau, 2,9,3,1,9,0 
431,g9raetl.Musikzimmer ,1,2,0,2 


432,Kleiderkammer,1,1,1,2,2,0 


2318 
2328 
2338 
2348 
8,8 

2358 
2368 
2378 
2388 
2398 


DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


EIL IE 


2458 DATA 


433, Butler James, 2,3,9,1,9,0 
434,Flur,1,1,1,3,2,% 

435, Hausmeister ,3,8,2,1,9,2 
441, graetl.Wohnzimmer ,2,1,1,%, 


442,Flur,1,3,1,1,2,2 
443, Treppenhaus, 2,3,2,3,9,1 
445,Serviererin,2,2,3 u 8 
431,Spielzimmer ,1,4,2 

452,Prinz Edward, i,il, 
453, Kindermaedchen, ®, 
454, Flur,1,1,1,1,0,8 
453, Kaltmamsel, 3,2, 3,1, 
461, Prinzessin Jolante, 


’ 
’ 
L 
3 


9,8 
2,1,1,2 
462,Bad Prinz/Prinzessin, 1,9, 
463,WC Herren Personal ,2,4,9,8 


464, Flur,1,1,1,1,9,8 

463, Koch, 3,0,2,1,0,8 

471, Schulzimmer ,1,4,1,9,0,8 
472,Lehrerin,2,1,1,4,9,9 
473,WC Damen Personal ,9,2,1,1, 


474,Flur,1,1,1,9,98,8 
475, Butler Harry,2,8, 


2, 
481, Turmzimmer ,1,1,9,9, 
2558 DATA 482,Lehrmittelkammer, 1, 


2560 DATA 483,Bad Personal,1,1,9, 
2570 DATA 484, Putzfrau, 1,1,0,1,9, 
2588 DATA 485, Putzgeraetekammer , 2,0,0,1, 


i 
8 
8 
LJ 
8 


2598 DATA 9,0,0,0,2,2,2,0,0,0,0,0,0,2,2, 


2698 DATA rem KHt%%* 

2618 REM HH GEBRAUCHSANLEITUNG KHK 

2628 BORDER ®: INK 8,9: INK 1,26:PAPER 8:P 
EN 1:MODE 1 
2638 PRINT" 
2648 PRINT" 
2658 PRINT 

2668 PRINT"Du verbringst Deinen Urlaub i 
n" 

2678 PRINT"einer der einsamsten und wild 
esten" 

2688 PRINT"Kuestenregionen von Schottlan 
d.In der" 

2698 PRINT"Ferne entdeckst Du auf einer 

Fels-" 

27088 PRINT"halbinsel ein sagenhaft gut e 
rhaltenes, " 

2718 PRINT"aber verlassenes Schloss. Die 

Neugierde" 

2728 PRINT"packt dich.Du betrittst die E 
ingangs-" 

2?39 PRINT"halle. In diesen Moment gibt e 
s eine” 


SCARBURY CASTLE" 


STING 


2748 PRINT"orkanartige Boe.Die schwere E 
ichentuere" 

2758 PRINT"#aellt hinter Dir zu und die 
drei" 

2768 PRINT"Schloesser schnappen ein. 
2778 PRINT"Fuer Dich gibt es nur eine Ho 
*fnung." 

2788 PRINT"Du musst die 3 Schluessel fin 
den,die" 

2798 PRINT"irgendwo im Inneren des Schlo 
nnes" 

2808 PRINT"verborgen liegen. ":G0SUB 9098 
2818 PRINT" SPIELREGELN" 

2820 PRINT OO - nun " 

2839 PRINT 

2848 PRINT"Deine Nahrung und Dein Wasser 
reichen" 

2845 PRINT"’je nach Schwierigkeitsgrad" 
2858 PRINT"zum Passieren von 120-399 Rae 

umen. " 

2868 PRINT"Deine Vorraete kannst Du im S 
chloss" 

2678 PRINT"ergaenzen." 

2888 PRINT"Im ganzen Schloss ist es dunk 
el." 

2898 PRINT"In einigen Raeumen gibt es Lo 
echer im" 

2789 PRINT"Boden, die Du nur sehen kannst 
‚wenn Du" 

2718 PRINT"trische Batterien in Deiner T 
aschen-" 

2728 PRINT"lampe hast.Es gibt einige Bat 
terien" 

29738 PRINT"’irgendwo in dem weitverzweigt 
en" 

2948 PRINT"Raumlabyrinth von Scarbury Ca 
stie." 

2958 GOSUB 9008 

2968 PRINT STRINGB(3,CHRS(172)))" = Tuer 
e geschlossen" 

2978 PRINT"Durchgang nur mit Dietrich mo 
eglich." 

278% PRINT STRINGS(3,CHRS(173))5" = Tuer 
e eingerostet" 

279@ PRINT"Durchgang nur mit Hammer und 
Oel," 

3008 PRINT STRINGS(3,CHRS(174))5" = Tuer 
e verklemmt" 

3@18 PRINT"Durchgang nur nit Brecheisen 

moeglich." 

3839 PRINT STRINGB(3,CHRS(IBL)))" = Schi 
ossportal." 

384% PRINT"Durchgang nur nit den 3 passe 
nden" 

3058 PRINT"Schluesseln moeglich," 

3068 PRINT 

387% PRINT"Ach so,noch ein Hinweis: " 
3289 PRINT"Du bewegst Dich mit den Curso 
rtasten" 

389% PRINT"(die Tasten mit den Pteilen.) 
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3180 PRINT"Treppaut gehst Du mit der Tas 
te <U),* 

311% PRINT"hinunter mit der Taste <D)." 
3128 PRINT 

3139 PRINT"Mehr wird an dieser Stelle ni 
eht" 
3148 
3159 
31609 
3178 
3188 
3198 
329% 
1,15 
3218 
322% 
3239 
3248 
3259 
3232 
3254 
3256 
3258 
32689 
3262 
3264 
3265 
3266 
3268 
3278 
3272 
3273 
3274 
3273 
3276 
3278 
3288 
3282 
3284 
3283 


PRINT"verraten." 

PRINT"Mach’s gut, Fremdling. " 

GOSUB 9800 

RETURN 

REM Hit GAME OVER Hk 

FOR v=128 TO 235 

LOCATE 8,35: PRINT CHRS(v):S0OUND 1,v, 


NEXT v 

LOCATE 8,35: PRINT" " 

REM Hr 

CLS #3 

IF lost‘>i1 THEN 3268 

PRINT #3,"Leider bist Du durch ein" 

PRINT#3, "Loch im Boden gefallen." 

PRINT#3, "Der Sturz war toedlich." 

60T0 3298 

IF lost<>2 THEN 3270 

PRINT#3, "Du bist einem Vampir" 

PRINT#3, "begegnet.Da Du kein” 

PRINT#3, "Kreuz bei Dir hattest," 

PRINT#3, "hat Dich der Vampir" 

PRINT#3, "angeknabbert. ":G0T0 3298 

IF lost‘>3 THEN 3288 

PRINT#3, "Im Raum spielt ein un-" 

PRINT#3, "sichtbarer Poltergeist" 

PRINT#3, "Klavier.Da Du kein” 

PRINT#3, "Baldrian zur Beruhigung" 

PRINT#3, "hast: Herzkasper| !" 

GOSUB 3588:G0T0 3298 

PRINT#3, "Du bist eingesperrt !" 

PRINT#3, "80 kommt es also,wenn" 

PRINT#3, "man unbedingt in alten" 

PRINT#3, "Scloessern herum-" 

3286 PRINT#3, "schnuetfeln muss !" 

3298 CLS #2 

3308 PRINT #2, "Spielende" 

3318 PRINT #2: PRINT #2, "Moechtest Du es 

nochmal versuchen ?" 

3328 PRINT #2:PRINT #2,"J...Ja N... Ne@ 
in’:SOUND 1,267,598,5:50UND 2,267%2, 49,5: 

SOUND 4, 267%2, 30,3 

3339 g6=INKEYS: IF g6=""THEN 3338 ELSE g# 

sLOWERS(gE) : IF gE="j"THEN RUN 118 ELSE I 

F g6="n"THEN 3349 ELSE GOTO 3339 

3348 REM Hk ABSCHIEDSSTAENDCHEN IHHHk 

3359 point=1 

3368 GOSUB 9208 

3378 DATA 213, 159,142,127,196, 119,127, 14 

2,159,127,119,127,142,142,119,127,142,14 
’ 

3389 DATA 8,213,159,142,127,186, 119,127, 

142,159, 127,142,127,1359,199,199, 213,159, 


LISTING 


199,199, -1 

3909 v=? 

3418 RESTORE 3379 

3429 READ a 

3439 IF a)® THEN SOUND 1,a,29,v:60T0 342 
4 

3449 IF a=8 THEN SOUND 1,1,5,2:60T0 3429 
3458 SOUND 1,213,5,08 

3460 vev-2: IF v>8 THEN 3418 

3478 LOCATE 1,24: END 

3998 REM %* POLTERGEIST'S KLAVIERSPIEL % 
3508 DATA 119,127,119,159,134,190,179, 23 
9,179,159,239,159,199,0 

3519 RESTORE 3590 

3529 READ a 

3530 IF a=d THEN RETURN 

3348 FOR v=?7 TO I STEP-9.,5 

3559 SOUND 1,8,3,v 

3569 NEXT v 

3578 GOTO 3528 

3588 REM Gimmick 3:Ptfeitfendes Geraeusch 
3398 FOR vv=1 TO 2:FOR v=59 TO 18 STEP-1 
SOUND 1,v,1,7:SOUND 2,v+3,1,7:NEXT v:NE 
“KT vw - 

3609 FOR v=18 TO 180 STEP 1:SOUND I,v,1, 
?:SOUND 2,v+3,1,7:NEXT v 

3618 FOR v=7 TO 1 STEP -9.2:SOUND 1,188, 
1,v:SOUND 2,193,1,v:!NEXT v 

3628 RETURN 

3630 REM K#t%# Blitz und Donner K##%% 
3635 FOR vi=3 TO 1 STEP -1 

3648 MOVE 176, 384:DRAW 192,320, 1:DRAW 16 
0,336,1:DRAW 2097, 273,1 

3658 FOR ve1 TO S:SOUND 1,9,1,7,0,8,v:!NE 
xTv 

3660 MOVE 176,384:DRAW 192,329,0: DRAW 16 
0,336,0:DRAW 207,273, 

3678 FOR v=6 TO 15 STEP 8.3:SOUND 1,4995 
»1,7,2,8,v:NEXT v 

3672 FOR delay=i TO vi#ißß:NEXT delay 
3674 NEXT vi 

3676 RETURN 

3688 REM KX##% Uhrticken KiX%*%* 

3698 FOR v2=7 TO I STEP-1:SOUND 1,9,1,v2 
‚9,8,1:NEXT v2 

3798 IF z1=225 THEN zi=224 ELSE z1=225 
3718 LOCATE xsm,3:PRINT" * 

3720 xsmexamtri:IF xsm>il OR xsm<S THEN 
rizrit-1 

3738 LOCATE xsm, 3:PRINT CHRS(z1) 

3749 RETURN 

3739 REM *Im-Boden-ist-ein-Loch-Sound# 
3768 FOR v=3009 TO 49009 STEP 18 

3779 SOUND 1,v,1,? 

3780 NEXT v 

3798 FOR v=? TO 8 STEP-9.2 

SOUND 1,4099,1,v,2,9,18 

NEXT v 

RETURN 

REM*In-der -Decke-ist-ein-Loch-Sound 
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* 

3848 FOR v=9 TO ? STEP 9.2:SOUND 1,4989, 
1,v,8,28,13:NEXT v 

3859 FOR v=4808 TO 3009 STEP 18:50UND 1, 
v‚1,7,8,0,1S:NEXT v 

3868 FOR v=7 TO 28 STEP-9.2:SOUND 1,3900, 
l, v,2,8, 135: NEXT v 

3878 RETURN 

3880 REM X#%#%* Vampir kommt naeher Xk%% 
3899 IF vx>2 THEN LOCATE vx,5:PRINT* * 
3908 vxevx+liLOCATE vx,S:PRINT CHRS(235) 
:SOUND 1,18,5,7,0,8,1 

3910 IF vx=8 THEN lost=2:60T0 318% 

3928 RETURN 

4999 END 

5008 REM #GIMMICKS,GEFAHREN UND GEGENSTA 
ENDE VERTEILEN # 

S81® RANDOMIZE TIME 

5022 FOR vei TO 15 

5825 IF v=3 THEN 5058 

5039 zufali=INT(RNDHIS9+L) 

5832 IF inhtzutfall)<c)d THEN 5938 

5835 inhtzutall)ev 

504% IF veiS AND zufall(43 THEN 5939 
5858 NEXT v 

S868 FOR vv=i TO 3 

5878 FOR vei TO 4 

506% zufaii=INTIRNDHLS9+L) 

S098% IF inh(zufalil)C>® THEN 5989 

S188 IF v=3 THEN 5120 

S118 inhizutall)av 

S120 NEXT v 

3139 NEXT vv 

S148 FOR vv=1 TO 1% 

S1S58 FOR vei TO $ 

S168 zufall=iNT(RNDKHLSP+L) 

s17@ IF gimtzutall)<>9 THEN 5168 

5188 gim(zutall)av 

S198 NEXT v 

3288 NEXT vv 

s218 FOR vv=d TO 88 STEP 49 

3228 zufali=INT(RND#39+ 1) 

IF zufall=2 OR zufalil=5 THEN 522% 
IF zufall=18 THEN 3229 
gefizufallsvv)eliget(tzufall+vv+r4Q)e 


NEXT vv 

FOR vs3 TO 4 
zufallm=INT(RNDKISI) +1 

IF gef(zutall)<)9 THEN 5280 
gef(zutall)av 

NEXT v 

gez=1INT (RND*9Y9) 

RETURN 

REM #%%%% SET LEVEL KR 
CLEAR: MODE 1:PAPER @: PEN I 
z1=225:rieiixsmed; vxe2 
PRINT"’Spielstaerke" 

PRINT" ------- ou. 2 

LOCATE 1,S:PRINT"1...Antaenger ":LOC 


LISTING 


ATE 1,8:PRINT"2...Fortgeschrittener Spie 
ler":LOCATE 1,11:PRINT"3...Adventure-Exp 
erte" 

3568 SOUND 1,199,5,3:SOUND 1,200,5,5:50U 
ND 1,328,5,3:SOUND 1,489,5,3 

3370 g6=1NKEYS: IF g6=""THEN 5579 ELSE g= 
VAL (98) 

5588 IF g=i THEN mu=3 ELSE IF g=2 THEN m 
u=2 ELSE IF g=3 THEN musi 

3598 IF 9)8 AND 9<4 THEN G0TO 3699 ELSE 
GOTO 3568 

3608 LOCATE 1,28:PRINT"J...Joystick":LOc 
ATE 1,23: PRINT’K...Keybord" 

3619 SOUND 1,180,3,3:SOUND 1,209,3,3:50U 

ND 1,309,5,3:SOUND 1,488,5,3 

3628 96=INKEYS: IF g#=""THEN 3629 ELSE 96 

=LOWERB(gE) : IF ge="j"THEN kKS5=1:G0T0 5638 
ELSE IF g6="k"THEN KS=9:60T0 3638 ELSE 
G0TO 3628 

3638 IF kS=1 THEN GOSUB 9988:60T0 129 EL 
SE G0TO 129 

3722 REM Hk SPRENSUNG DER TUERE HH 
5718 dy=sdy-1:PAPER #2,2:PEN #2,3:L0CATE 
#2,18,3: PRINT #2," ":LOCATE #2,19,3 
sIF dy)®@ THEN PRINT #2,STRINGS(dy,ASC("ö 
")) 

3728 FOR v=7 TO 8:SOUND 1,4099,3,v: NEXT 
v 

3730 alrasra: var=d 

5732 LOCATE 16,3:PRINT"Weiter":LOCATE 16 
‚4: PRINT"mit":LOCATE 16,5: PRINT*<ENTER)" 
5734 g96=1INKEYS: IF g6=""THEN 3734 ELSE IF 
9S=CHR® (13) THEN 5736 ELSE IF ge="X"THE 
N 5736 ELSE G0T0 3734 

5736 FOR v=3 TO S:LOCATE 16, v:PRINT" 

"NEXT v 

3738 FOR vei TO 3:L0CATE #2,17,v:PRINT # 
2," "ıNEXT v 

3748 IF tn(rav)<>8 THEN LOCATE 8,1:PRINT 
" "ira=sra-id:var=i:dir=240:G0SUB 8499 

3758 IF var=8 AND te(rav)<)& THEN LOCATE 
14,5:PRINT" "ira=sra+i:varei1:dir=243:605 
UB 859% 

3768 IF var=d AND ts(rav)<)d THEN LOCATE 
8,9: PRINT" "irasra+ißd:var=1:dir=241:608 
UB 8698 

3778 IF var=d AND tw(rav)C)d THEN LOCATE 
2,5: PRINT" "irasra-lLivar=i:dir=242: G0SU 

B 8790 

3788 REM 

3798 REM 

5899 GOTO 7848 

60988 REM K%%%* FREIHEIT MARK 

681% switch=i 

6928 GOSUB 9288 

62838 LOCATE 1,20: PRINT"Herzlichen Glueck 
wunsch !" 

6848 PRINT"Du hast es geschafft, Scarbury 
Castle" 

6058 PRINT"lebend zu verlassen." 
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6068 GOSUB 9189 

6878 PRINT"Moechtest Du nochmal in das 8 
chloss ?" 

6888 PRINT"J...Ja N, ..Nein’ 

6898 SOUND 1,198, 10,5:SOUND 1,289,18,3:8 
OUND 1,309,120,3:80UND 1,488, 18,5 

6108 gU=INKEYS: IF gU=""THEN 6198 ELSE 96 
=LOVERS (98) 

6118 IF g6="j"THEN RUN 

6128 IF g6C)"n"THEN 69899 

6138 LOCATE 1,1:END 

6308 REM Hkkik FESTGEFAHREN IHHHER 

6518 lost=4:G0T0 3188 

7828 REM * RAUM UND DATEN AUSDRUCKEN %# 
7818 var=sd;v=1:1IF ra=348 THEN 4808 

7828 IF nr(v)era THEN 7838 ELSE vev+1:60 
TO 7928 

70838 rav=v:LOCATE 1,11:PRINT b#(rav):LOCc 
ATE 1,13 

7832 IF INT(ra/1@@)=1 THEN PRINT"'2. Unter 
geschoss" 

7834 IF INT(ra/189)=2 THEN PRINT"I. Unter 
geschoss" ‚ 

7836 IF INT(ra/128)=3 THEN PRINT" Erdge 
schoss” 


0838 IF INT(ra/129)=4 THEN PRINT" Oberg 
eschoss" 
7839 LOCATE #2,6,2:PRINT #2," "!raun 


sraum+l:LOCATE #2,6,2:PRINT #2,raunm 
7848 LOCATE 2,1:PRINT STRINGS(13,CHRE(1? 
8) 

7058 LOCATE 2,9:PRINT STRINGS(13,CHRS(17 
8) 

7868 FOR v=2 TO 8 

7878 LOCATE 2,v:PRINT CHRS(17@) :LOCATE 1 
4, v:PRINT CHRBS(178) 

7888 NEXT v 

7098 alras=STRs(alra):ras=STRS$ (ra) 

7188 LOCATE 7,1 

7118 IF tnirav)=i THEN PRINT STRINGR(3,1 
7 
7129 
72) 
7138 
73) 
7148 
74) 
7159 
81) 
7168 LOCATE 14,4 

7178 IF te(rav)=i THEN PRINT CHRB(LFLI:L 
OCATE 14,5: PRINT CHRB(L71) :LOCATE 14,6:P 
RINT CHR®(171) 

7188 IF te(rav)=2 THEN PRINT CHRB(L72) SL 
OCATE 14,5: PRINT CHR®(L72) :LOCATE 14,6:P 
RINT CHR®#(172) 

7198 IF tetrav)=3 THEN PRINT CHRB(L?3):L 
OCATE 14,5: PRINT CHRS(173) :LOCATE 14,6:P 
RINT CHRS(173) 


IF tntrav)=2 THEN PRINT STRING#(3,1 
IF tn(rav)=3 THEN PRINT STRING#B(3,1 
IF tn(rav)=4 THEN PRINT STRINGB(3, 1 
IF tntrav)=6& THEN PRINT STRING#(3,1 


7208 IF te(rav)=4 THEN PRINT CHRS(174):L 29 
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OCATE 14,5:PRINT CHRS(L74):LOCATE 14,6: P 
RINT CHR8(174) 

7218 IF te(rav)=6 THEN PRINT CHRS(LBI):L 
OCATE 14,35 PRINT CHRSLLBL)SLOCATE 14,6:P 
RINT CHRB(181) 

7228 LOCATE 7,9 

7238 IF ts(rav)=i THEN PRINT STRING#(3, 1 
7ı) 

7248 IF ts(rav)=2 THEN PRINT STRINGS(3,1 
72) 

?258 IF ts(rav)e3 THEN PRINT STRING®#(3,1 
73) 

7268 IF ts(rav)=4 THEN PRINT STRINGS(3,1 
74) 

7278 IF ts{irav)=& THEN PRINT STRINGS(3, I 
el) 

7288 LOCATE 2,4 

7298 IF tw(rav)=1 THEN PRINT CHRE(LFL):SL 
OCATE 2,3:PRINT CHR@LLFLISLOCATE 2,6: PRI 

NT CHRS(171) 

7398 IF tw(trav)=2 THEN PRINT CHRB(172):L 

OCATE 2,5:PRINT CHRS(172):LOCATE 2,6:PRI 

NT CHRS(172) 

?318 IF tw(irav)=3 THEN PRINT CHRB(L?73):L 
OCATE 2,3: PRINT CHRS(173):LOCATE 2,6:PRI 
NT CHRS(173) 

7328 IF tw(irav)=4 THEN PRINT CHRS(174) :L 
OCATE 2,5: PRINT CHRS(174):LOCATE 2,6: PRI 
NT CHRB(174) 

7338 IF tw(irav)=6 THEN PRINT CHRS{LBI) !L 
OCATE 2,3: PRINT CHRSE(1BL1):LOCATE 2,6:PRI 

NT CHRE{I181) 

7335 raß=STR6(ra):alras=STR6(alra) 

7348 IF dir=241 THEN var=1:60SUB 800A 
?359 IF dir=242 THEN var=z1:60SUB 8108 
7360 IF dir=249 THEN var=1:60SUB 8299 
7378 IF dire243 THEN var=1:60SUR 8399 
7372 IF var=@ THEN LOCATE 8,5:PRINT CHR$ 
(178) 

7375 REM KKRR% GIMMICK KATZE ODER GEIST 
ABLAUFEN LASSEN ##4%%* 

7388 IF gimtrav)=1 THEN GOSUB 8908: gim!r 
av)=d: zaezsINT/RNDAISP+ I): gim(zae)=I1 

399 IF gimtrav)e?2 THEN GOSUR ABO: gim(r 
av)=dizae=INTERNDAISIHL II gIm(zae)e? 

?392 IF gimtrav)=3 THEN GOSUR 3599: gim!r 
av)=0d:zae=INT{RNDALSIHL):gim(zae)=3 

394 IF gimtrav)z4 THEN GOSUB 3639: gimir 
av)=d: zae=INT(RNDILSIH LI) gim(zae)=4 

7396 IF gimtrav)=S THEN EVERY 39,1 GOSUB 
3688: gimirav)=d: zae=INT(RNDAH1SP+H LI) gimt 
zae)=3 

7488 REM #NAHRUNG UND WASSER ABZIEHEN* 
7410 nauna-limaswa-l:LOCATE #2,10,6:PRIN 
T #2,STRINGS(27,* ")SLOCATE #2,10,6:PRIN 
T #2, STRINGS(INT (wa/ (4%mu) +1) ,CHRS(1?R) ) 
:LOCATE #2,1 

8,S:PRINT #2, STRINGS(27," "):LOCATE 2,1 
9,5:PRINT #2, STRINGS(INT(na/(4%mu) +1), CH 
RE(LPA)I:CLS HISCLS W3 


7415 REM X#%* RAUM AUF GEFAHREN VEBERPR 

UEFEN UND GGF. REAGIEREN KK 

7928 IF na=® THEN lost=4:60T0 318% 

79438 IF wa=® THEN lost=4:60T0 318% 

7435 zeichen=g 

7448 IF gettirav)=2 AND lied THEN lost=el; 

GOTO 3189 

7958 IF gettrav)=3 AND inv(S)=d THEN EVE 
RrY 18,1 GOSUB 3868 

79468 IF getirav)=4 AND inv(6)=1 THEN 60$ 
UB 3598 

79478 IF getirav)e4 AND invi6)=9d THEN los 
t=3:60T0 3180 

7988 IF getirav)=1i THEN PRINT #3, "In der 
Decke ist":PRINT #3, "ein Loch !":G0SUB 
3838 

7985 IF geftrav)=2 AND 1i>9 THEN PRINT # 
3,"Im Boden ist":PRINT #3, "ein Loch !"}L 

OCATE 5,8:PRINT CHR®{142) | CHRS(143) : GOSU 
B 3759 

7588 IF inh(rav)=i THEN zeichen«e14S:PRIN 

T #3,"Du findest Lebensmittel":na=100%*mu 
:LOCATE #2,19,3:PRINT #2, STRINGS(25,CHRS$ 
(179) ) 

?S18 IF inhtrav)=2 THEN zeichen=144:PRIN 
T #3, "Du findest Wasser":wa=109#mu:LOCAT 

E #2,10,6:PRINT #2,STRINGS(2S,CHRS(170) ) 
7528 IF inh(rav)e4 AND inv(3)=1 THEN zei 

chen=146:PRINT #3,"Du findest Batterien" 
:11=250%mu:LOCATE #2,19,4:PRINT #2, STRING 

8(25,CHRS(17 

9) 

7530 IF 1139 THEN li=li-1:L0CATE #2,19,4 
:PRINT #2,STRINGS(27," "):LOCATE #2,19,4 
:PRINT #2, STRINGS(INT(11/ (2%mu) +8.) ,CHR 

s(179)) 

754% REM 

7568 IF inh(rav)>4 AND inhirav)<15 THEN 
PRINT #3,"Du findest:";PRINT #3,9eg6(inh 
trav))Sinvtinhirav))=1:3LOCATE #4,1,inhtr 
av)-L:SPRINT 

#4,geg$(inhirav)) 

7565 d=inh(rav):IF d=4 THEN zeichen=146 
ELSE IF d=$ THEN zeichen=131 ELSE IF des 
THEN zeichen=132 ELSE IF d=? THEN zeich 
en=133 ELSE 

IF d=8 THEN zeichen=134 ELSE IF d=9 THEN 
zeichen=135 ELSE IF deilQ THEN zeichen=! 
36 

7567 IF d=11 THEN zeichen=137 ELSE IF d= 
12 THEN zeichen=138 ELSE IF d=13 THEN ze 
ichen=e139 ELSE IF d=14 THEN zeichen=149 
7569 LOCATE 11,7:PRINT CHRS(zeichen) 
7578 IF INH(rav)=15 THEN zeichen=141:PRI 
NT #3,"Dir begegnet ein Eremit.":PRINT # 
3,"Er sagt nur: ":;PRINT #3, "Geheimzahl *j 
gez:LOCATE # 

4,1,194: PRINT #4, "Geneimzahl"jgez:iinv(13) 
=| 

7575 inh(rav)=9 
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7588 REM #kt%k BEWEGUNG FESTLEGEN Ki 

7599 nord=d: ost=d: sued=d: west=d: upstairs 

nd: downstairs=d 

76088 IF tn(rav)=i THEN nord=1 ELSE IF tn 
trav)=2 AND invi1@)=1 THEN nord=1 ELSE I 

F tntrav)=3 ANDtinv(8)=1 AND iInv(P)=1)TH 

EN nord=1 EL 

SE IF tn{rav)=4 AND inv(7)=1 THEN nord=i 

761% IF te(rav)=i THEN ost=1 ELSE IF te( 

rav)=2 AND inv(19)=1 THEN ost=1 ELSE IF 
teirav)=3 AND(inv(8)=1 AND Invt9)=L)ITHEN 
ost=i ELSE 

IF te(irav)=4 AND inv(7”)=1 THEN ost=i 
7629 IF ts(rav)=i THEN sued=1 ELSE IF ts 
(rav)=2 AND invti@)=1 THEN sued=! ELSE I 

F ts(rav)=3 AND (inv(@)el AND inv(P)sL)T 

HEN sued=1 E 

LSE IF tsirav)=4 AND inv(7)=1 THEN sued= 
i 

7638 IF tw(rav)=i THEN west=1 ELSE IF tw 
t(rav)=2 AND invtlQ@)=1 THEN west=1 ELSE I 

F tw(rav)=3 AND(inv(8)=1 AND inv(9=1) TH 

EN west=1 EL 

SE IF tw(rav)=4 AND inv(7)=1 THEN west=t 
ELSE IFtttwirav)eö)#linviil)i=tl)Htinvti2 
Jal)#tinv(i3)=1))THEN west=! 

7648 IF upirav)=i THEN upstairs=i 

765% IF do(rav)=si THEN downstairs=l 

7668 IF do(rav)=e3 THEN downstairs= 

7678 PRINT #1, "Bewegungen": test=! 

7688 IF nord=1 THEN LOCATE #1,13,2: PRINT 
#L,CHRB(240) : Fest=d 

7698 IF ost=1 THEN LOCATE #1,14,3:PRINT 
#L,CHRS(243) : fest=9 

7788 IF sued=i THEN LOCATE #1,13,4: PRINT 
H1,CHRB(241): Fest=d 

7718 IF west=i THEN LOCATE #1,12,3: PRINT 
#1,CHRS (242): fest=d 

7728 IF upstairs=i THEN LOCATE #1,1,3:PR 
INT #1, "U. ..Aufw. !itest=d 

7738 IF downstairs=i OR downstairs=3 THE 
N LOCATE #1,1,4:PRINT #1,"D...Abn. "itest 
9 

7733 IF test=1 THEN LOCATE #1,1,2:PRINT 
#L,"Keine Bewegung": PRINT #1, "moeglich": 
IF dy{=8 THEN lost=4:60T0 318% 

7737 IF test=1 AND dy)?9@ THEN LOCATE #2,1 
7,1:PRINT %#2,"Du setzt eine Stange":LOCA 
TE #2,17,2:PRINT #2, "Dynamit ein und spr 
engst ":LOCAT 

E #2,17,3:PRINT #2,"die versperrte Pfort 
e.":60SUB 5798 

7748 IF downstairs=5 THEN LOCATE #1,1,35: 
PRINT #1,"mit Geheimzahl” 

7758 SOUND 1,199,5,7:var=d 

7752 IF INKEY$()""THEN 7752 

7735 IF kS=1 THEN 7779 

7768 g6=1INKEYS:IF g96=""THEN 7769 ELSE 986 
=LOWERS(gE) : dir=ASC(gE): IF getirav)=3 TH 
EN xxz=REMAIN(1) 
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777% IF gSeCHRS(249)AND nord=i THEN alra 
zsrairasra-10:var=1:G0SUB 8499 

7775 IF JOY(Q)=1 AND nord=1 THEN dir=249 
salrasrairasra-19: var=1:605UB 8498 

77688 IF g$eCHRS(243)AND ost=1 THEN alra= 
ra: rasra+i:var=i1:G60SUB 8598 

?7?85 IF JOY(9)=8 AND ost=i THEN dir=243: 
alrasrasrasra+i:var=1:G60SUB 8599 

7798 IF 9S=CHRS(Z41)AND sued=i THEN alra 
sra:rasra+tld:var=1:G60SUB 8489 

7793 IF JOY(@)=2 AND sued=i THEN dir=24l 
salrasrasirasra+rid:var=L:G0SUB 864989 

7898 IF 9g$=CHR$(242)AND west=i THEN alra 
sra:ra=sra-l:ivar=L:G60SUB 8798 

7883 IF JOYt@)=4 AND west=i THEN dir=242 
salrasrairasra-l:var=1:008SUB 8798 

7818 IF g8="u"AND upstairs=si THEN alrasr 
a:rasra+l90: var=L 

812 IF kS5=1 AND JOY(Q)=16 AND var=d THE 
N 7815 ELSE IF kS=1 AND var=@ THEN 7775 
ELSE 60T0 7828 

7815 IF upstairs=8 AND downstairs=® AND 
kS=1 THEN 7775 

7816 IF JOY(@)=1 AND upstairs=i THEN alr 
asra:ra=sra+idd: var=L| 

78617 IF JOY(9)=2 AND downstairs=5 THEN 7 
859 

818 IF JOYt@)=2 AND downstairss!i THEN a 
Irasra:rasra-100:varei 

7819 IF kS=1 AND var=® THEN 7815 

7828 IF g6="d"AND downstairs=i THEN alra 
sra:rasra-109: varel 

7838 IF g96="d"AND downstairs=5 THEN 7859 
78948 IF var=d THEN EVERY 19,1 GOSUB 3888 
:GOTO 775% ELSE CLS HQ:CLS HLICLS H3ıxxz 
=REMAIN(1):vx=2:G0T0 7908 

7858 CLS %3 

7868 PRINT #3, "Eine Falltuer ver-":PRINT 
#3,"’sperrt Dir den Weg !" 

7878 PRINT #3, "Nenne die Geheimzahl,":PR 
INT #3,"um zu passieren !" 

7888 PRINT #3, "Geheimzahl ? )":LOCATE #3 
‚16,35: INPUT #3,”",gez# 

7898 IF gez$=""THEN CLS #3:G0T0 7868 
7998 IF VAL(gez#)=gez THEN varsLialrasra 
ırazra-100:60T0 7849 

7919 CLS #3:SOUND 1,18990,59,15:LOCATE #3 
‚6,3: PRINT #3, "FALSCH !* 

7928 LOCATE #3,1,3: PRINT #3, "Weiter mit 
<ENTER)*" 

7938 SOUND 1,199,18,5: SOUND 1,289,19,3:8 
OUND 1,399, 10,5 

7948 IF INKEYS<)CHRS(L3)THEN 7949 

7939 alra=sra:var=s1:60T0 7849 

8008 REM *#* MANN LAEUFT VON OBEN EIN %%* 
8219 tig=179 

8828 FOR v=2 TO 5 

80838 LOCATE 8,v:PRINT CHRS(#ig) 

6248 FOR delay=i TO 190:NEXT delay 

8952 


IF #ig=179 THEN fig=L88 ELSE fig=17 29 
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6068 LOCATE 8,v:PRINT* * 

8078 NEXT v 

8875 LOCATE 8,5:PRINT CHRS(178) 

6069 RETURN ' 

8108 REM ** MANN LAEUFT VOM OSTEN EIN * 
B118 Fige179 

8128 FOR v=13 TO 8 STEP-I 

8138 LOCATE v,S:PRINT CHRS(FIg) 

8148 FOR delay=i TO 109:NEXT delay 

8158 IF +ig=179 THEN #ig=188 ELSE fig=17 


B16® LOCATE v,S:PRINT* ® 

8178 NEXT v _ 

8175 LOCATE 8,5:PRINT CHR®(178) 

618% RETURN 

6208 REM * MANN LAEUFT VOM SUEDEN EIN % 
8210 +ig=179 

8220 FOR v=8 TO 5 STEP-I 

623® LOCATE 8,v:PRINT CHRB(FIg) 

8235 FOR delay=i TO I@B:NEXT delay 

8248 IF fig=179 THEN +ig=189 ELSE tig=1? 


8258 LOCATE 8,v:PRINT" ® 

8268 NEXT v 

8265 LOCATE 8,5:PRINT CHRS$(178) 

8278 RETURN 

8290 REM * MANN LAEUFT VOM WESTEN EIN % 
6308 fig=179 

8318 FOR va3 TO 8 

8328 LOCATE v,S:PRINT CHRS(Fig) 

8339 FOR delay=i TO 100:NEXT delay 

8349 IF +ig=179 THEN fige18B ELSE figel7 


9 
8350 LOCATE v,S:PRINT® * 

8360 NEXT v 

8365 LOCATE 8,5:PRINT CHR$(178) 

8370 RETURN 

8488 REM * MANN LAEUFT NACH NORD * 

8405 txx=REMAIN(L) 

8418 #ig=179:LOCATE 8,5:PRINT CHRS$(189) 
8428 FOR v=5 TO I STEP-L 

8438 LOCATE 8,v:PRINT CHRS(FIg) 

8448 FOR delay=i TO 190:NEXT delay 

8459 IF #ig=179 THEN #ig=188 ELSE fige17 


8468 LOCATE 8,v:PRINT" * 

8979 NEXT v 

8489 RETURN 

83908 REM # MANN LAEUFT NACH 0ST + 

8505 txx=REMAIN(L) 

8319 Fig=179:L0OCATE 8,5:PRINT CHR$(189) 
8329 FOR v=8 TO 14 

8539 LOCATE v,S:PRINT CHRS(#Ig) 

8549 FOR delay=i TO 100: NEXT delay 
8599 IF +ig2179 THEN fig=180 ELSE fig=17 
9 


8569 LOCATE v,S:PRINT” * 
8579 NEXT v 
8589 RETURN 


8628 REM * MANN LAEUFT NACH SUED * 

8695 txx=REMAIN(L) 

8610 +ig=179:LOCATE 8,35:PRINT CHRS(189) 
8628 FOR v=35 TO 9 

8639 LOCATE 8,v:PRINT CHRS(FIg) 

8648 FOR delay=1 TO 190:NEXT delay 

8639 IF +ig=179 THEN fig=189 ELSE fig=1? 
9 

8668 LOCATE 8,v:PRINT" * 

8678 NEXT v 

8688 RETURN 

8708 REM * MANN LAEUFT NACH WEST * 

6705 txx=REMAIN(L) 

8719 fig=179:LOCATE 8,5:PRINT CHR$(189) 
6720 FOR v=8 TO 2 STEP-1 

8738 LOCATE v,S:PRINT CHRE(Fig) 

8749 FOR delay=i TO 109:NEXT delay 

8759 IF fig=179 THEN fig=180 ELSE fig=l? 
9 

8769 LOCATE v,S:PRINT" * 

877% NEXT v 

8789 RETURN 

8808 REM * KATZE DURCHALERT DEN RAUM %* 
8895 ENV 1,1,15,1,1,0,4,15,-1,1 

8619 +ig=173 

8828 FOR v=3 TO 13 

8838 LOCATE v,6 

8848 PRINT CHRS(#Ig) SOUND 1,v%19,20,15, 
1,2, v 

8845 FOR delay=i TO 168:NEXT delay 

8850 IF #ig=17S THEN fig=176 ELSE figel? 


8868 LOCATE v,6:PRINT” " 

8878 NEXT v 

8889 RETURN 

8908 REM * GEIST SCHWEBT DURCH DAS ZIMME 


8918 FOR v=2 TO 8 

8928 LOCATE 9,v 

8939 PRINT CHRS(177) 

8935 FOR vi=49 TO 1 STEP-3:SOUND 1,vi,l, 
7,8,0,vi/4+1:2NEXT. vi 

8937 FOR viel TO 48 STEP 3:SOUND 1,vi,l, 
7,8,8,v1/4+1:NEXT vi 

8948 FOR delay=i TO 19:!NEXT delay 

895% LOCATE 9,v:PRINT" *® 

8969 NEXT v 

8979 RETURN 

9889 SOUND 1,179,19,5:5OQUND 2,1,10,9:S0U 
ND 4,1,19,9 

9819 SOUND 1,179,19,5:SOUND 2,179/2,19,5 
!SOUND 4,1,10,% 

9828 SOUND 1,179,20,5:SOUND 2,179/2,29,5 
‘SOUND 4,179*2,29,5 N 

9849 IF INKEYE=""THEN 9049 ELSE CLS:RETU 
RN 

91989 SOUND 1,179,200,5:SQUND 2,179*2, 299 
‚9:SOUND 4,179/2,299,5 

91189 RESTORE 9189 

9128 READ a 
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9125 gS=INKEYS: IF g6="a"THEN 2619 ELSE I 
F g9$="A"THEN 2618 ELSE IF g$="s"THEN RET 
URN ELSE IF g8="S"THEN RETURN ELSE IF sw 
itch=s1 AND 9 

s<)"" THEN RETURN 

9139 IF a=-i THEN SOUND 1,10090,1,0 

9148 IF add THEN SOUND 1,8,39,15:SOUND 2 
‚179%2,30,3:SOUND 4,179/2,30,5 

9158 IF a=8 THEN SOUND 1,1099,1,9: SOUND 
2,179%2,1,5°SOUND 4,179/2,1,5 

9168 IF a=-I THEN 9119 

9178 GOTO 9128 

9189 DATA 179,179,142,119,119,196,89,89, 
196,119,119,196,179,179,142,119, 119,106, 
119,119,142,0,142,0,159,159,179,179,142, 
119,119,186, 
69,89,196,119,119,196,179,179,142, 119,11 
9,142,9,142,159,139,179,179 

9198 DATA 196,106,199,89,89,100, 196,106, 
119,142, 119, 119,196, 106,119,89,89, 142,15 
9,159,179,0,159,0,142,142,106, 106,190, 89 
‚89,109,196, 
196,119,0,142,119,119,179,179,142, 119,11 
9,142,9,142,159,159,179,179, -1 

92099 REM #H%% Grafik Schloss Hk 

9210 DATA 0,9,119,259,110,3209,132,344,15 
0,320,157,329,158,329,167,329,167,321,17 
6,321,176,328, 185,328, 185,329,199, 320, 22 
0,302,241,38 
2,241,351,231,356,231,371,242,371, 242,36 
1,2352,361, 252,379, 263, 370, 262,368, 273, 36 
8,273,370,284,370,284,361 

9228 DATA 274,359,274,393,294,277,294, 25 
0,395,223, 312,195, 336, 157,415,137,90,0, 11 
0,250,77,247,0,0,88,249,194,282, 106,279, 
118,279,2,8, 
110,299,104,290,194,283,2,0,110, 250,105, 
219,94,193,99,1355,85,146,79,169,78,195,8 
1,232,00, 245,49, 250,26, 246 

9238 DATA 19,252,0,0,248,350, 253, 359,253 
‚391, 248,341,248,351,0,0,260, 329,263, 328 
‚265, 310,260, 310,260,328,-1,-1 

924% RESTORE 9219 

9258 CLS:BORDER B: INK 9,0: INK 1,26:PAPER 
B:PEN 1:MODE 1 

9268 READ x,y:IF x=2 THEN READ x,y: MOVE 
x,y:60T0 9268 

9278 IF x) THEN DRAW x,y,1:60T0 9268 
9288 LOCATE 398,3: PRINT"Scarbury" 

9298 LOCATE 38,7:PRINT" Castle":IF point 
=| THEN RETURN 

9295 IF switch=1 THEN RETURN 

9398 LOCATE 1,23: PRINT"Ein nervenzerrend 
es Abenteuer.” 

9318 LOCATE 1,25: PRINT CHRS(164)5" 1985 
Jens Beckmann" 

9329 INK 2,18 

9339 PEN 2 

9348 LOCATE 25,12: PRINT"A. . .ANLEITUNG* 
9358 LOCATE 25,14: PRINT"S.. .SPIELSTART*® 
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9369 PEN 1:60T0 9108 

939% REM * VOPBEREITUNGEN UND MASKENBILD 
UNG * 

9498 CLS:BORDER 9 

9495 INK 0,9: INK 1,26: INK 2,20: INK 3,15: 
PAPER #2,0: PAPER #1,9:PAPER #2,2:PAPER 4 
3,8:PAPER #4,8:PEN #9,1:PEN #1,2:PEN #2, 
3:PEN #3, 1:P 

EN #4,2 

9419 DIM nr(160),bEL160) ,tn(L6@) ,tei169) 
‚„tutLöR) ,twi169) ,gimtisß),inhi16B) „upli& 
BD) ,‚dol169) ,get(169) ,gegst15), Invi1) 
9428 RESTORE 1908 

9438 FOR v=1 TO 168 

9448 READ nr(v),bsiv),tniv),teiv),tsiv), 
tn(v),uptv),dotv) 

9458 NEXT v 

9468 DATA Lebensmittel, Trinkwasser , Tasch 
enlanpe,Batterie,kreuz, Baldrian, Brecheis 
en,Oelkaennchen, Hamner ‚Dietrich, Schluess 
el 1,Schlues 

sel 2,Schluessel 3,Brechnittel,Erenit 
9478 RESTORE 9468 

9488 FOR v=1 TO 13 

9498 READ gegsiv) 

939% NEXT v 

9518 DATA Loch in der Decke,Loch in Bode 
n,Vanpir, Schreckgespenst 

9528 RESTORE 93518 

9538 FOR v=1 TO 4:READ gets(v):NEXT v 
9548 WINDOW #9,1,24,1,14:WINDOW #1,1,16, 
15,19:WINDOW #2,1,42,28,25 

9358 WINDOW #3,17,48,15, 19: WINDOW 44,25, 
49,1,14 

9568 LOCATE #4,1,1:PRINT #4, "Ausruestung 
U 


9578 na=100%mu:wa=iößdkmuira=341: 11=5ß4mu 
sinv(3)z1:dy=2imu 

9575 LOCATE #2,1,3: PRINT #2, "Dynamit)>":L 
OCATE #2,18,3: PRINT #2,STRINGS (dy,ASC("% 
.y) 

9588 LOCATE #2,1,4:PRINT #2, "Licht )" 
9598 LOCATE #2,1,35:PRINT #2, "Nahrung)" 
9698 LOCATE #2,1,6: PRINT #2, "Wasser )" 
9682 LOCATE #4,1,3:PRINT #4, "Taschenlamp 
e" 

9684 LOCATE #2,1,2:PRINT #2, "Raum" 

961% RETURN 

9615 REM Hk SYMBOLE DEFINIEREN KHHkkk 
9628 DATA 170,255, 255, 255, 255, 255,255, 25 
5,255,171,0,0,0,08,0,0,2,2,172,255,129,15 
3,165,165,153,129,255,173,255,145,197,14 
5,137,165,14 
5,255,174,146,73,36,146,73,36, 146, 73,175 
‚8,2,128,131,255,254,68,1902,176,0,20,128, 
131,235, 254,68, 294 

9625 DATA 177,56, 124,214, 214, 254,254,170 
‚170,178,56,356,16,124,16,16,49,68,179,56 
‚36,144, 254,18,16,498,36,180,56,356, 18,254 
‚1944,16,48,7 


LISTING 


2, 181,XK1 1111111, XKL10000001,XR1OL LIDL, X 
KLOILLIGL,XRIQLILIGL, KEIL 11101, XLL00000 
DL, xXkiliiıttı 

96308 RESTORE 9628 

9648 SYMBOL AFTER 131 

9658 FOR v=1 TO 11 

9668 READ sB,51,32,53,54,55,56,37,58 
9670 SYMBOL s9d,31,32,53,34,35,36,87,58 
9688 NEXT v 

9685 SYMBOL 181,&X11111111,&.X19000901, &:X 
1Q11L1IO1 ,UXIOLLLIOL ,RXIOLLIIOL XI ILIQ 
1,UX1O00ODR1 UXiitililı 

9699 SYMBOL 131,8,16,16,124,16,16,16,56 
9798 SYMBOL 132,33,173,169,154,82,84,53, 
38 

9718 SYMBOL 
9728 SYMBOL 
9730 SYMBOL 
6 
9748 
2 
9758 SYMBOL 
9768 SYMBOL 
28 

9778 SYMBOL 
6 
9788 
9798 
126 
9899 SYMBOL 142,6X1,8XK11,KXiL,&Kiil Xi 
1,6X11,6X1,8X8 

9819 SYMBOL 143, &X11000098,KX11110000 , 8X 
11100990, uX11100000,.X11000000,u.X1110009 
0,uX11009009,uX2 

9828 SYMBOL 144,&.X109800008,KX10111000,&X 
19010990 ,KX11111100,.X10008100,.X1000008 
9, 1.X10009000 , LX10002808 

9839 SYMBOL 145, &.X10101911,LX19101911,&X 
1D101011,uX1119911,.X100010,u.X100019, X 1 
20910,LX100818 

9849 SYMBOL 146,&.X0,.X11000,.X111109, Xi 
11100,&X111190,uX111109,KX111100,&X11 119 
J 


133,0,28,16,16,16,16,144, 224 
134,0,0,60, 191,253, 189,63, 68 
135,124, 124,16,16,16,16, 16,1 
SYMBOL 136,24,36,24,16,16,112,16, 11 
137,71,69,71,68,68,4,28,28 

138,231,37,231,132,228,4,28, 


139,231,37,231,36,228,4,28,2 


SYMBOL 


3 149,39,38,122,74,74,74,124,@ 
SYMBOL 


141,126,66,126,66, 66,126, 66, 


9859 SYMBOL 235,8X111109,KXıLi11L1Q, KKıDi 
1019, UXLILLILLL,UX1BLILIOL,LX10000001 , X 
41Q1LOLL AeXtitiittt 

9868 RETURN 

9988 CLS:PRINT"Anmerkung fuer Joystickbe 
nutzer: ":PRINT:PRINT 
9918 PRINT? Joystick 
TRING$ (39,154) : PRINT 
9928 PRINT TAB(IL)ICHRS(249) 5 TAB(1S) "Bew 
egung nach Norden.” 

9938 PRINT:PRINT TAB(LLISCHRS(243) J TABL 
5)5 "Bewegung nach Osten." 

9948 PRINT:PRINT TAB(LLISCHRS(Z241) TABLI 
5)) "Bewegung nach Sueden." 

9958 PRINT:PRINT TAB(LL)SCHRS(242) J TABL 
5)5 "Bewegung nach Westen,” 

9968 PRINT:PRINT"AFEUERU + "SCHRS(240)5T 


Aktion":PRINT S 


AB{15)5 "Bewegung im Treppenhaus":PRINT T 
AB(15)5 "ein Stockwerk nach oben.” 

9978 PRINT: PRINT"AFEUERU + "ICHRS(Z4U) IT 
AB(15)5 "Bewegung im Treppenhaus":PRINT T 
AB(15)5 "ein Stockwerk nach unten." 

9988 PRINT:PRINT"ÄAFEUERU"STAB(1S)} "Einsa 
tz einer Stange":PRINT TAB(15)5 "Dynamit 
in einer Falle. ":LOCATE 1,25: PRINT"Weite 
r mit dem Fe 

verknopf." 

9998 IF INKEYSC)"X"THEN 9998 ELSE RETURN 


Ausruestung 
Taschenlanpe 


zul 


Schlafzimmer Graf 
Obergeschoss 


ein boch I. 


Scarbury 
Castle 


© 1987 


J.Beckaann 


HAUPTPROGRAMM WIRD GELADEN. 
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LISTING 


LOHN = 
ABRECHNUNG 


Nach dem Programmstart zeigt das Programm, welche 
Eingaben (Personalstammdaten, Abrechnungsdaten) 
zu machen sind. Gleichzeitig wird mitgeteilt, wohin 
die Ausgaben geschickt werden können: Nämlich zum 
Bildschirm oder zu einem angeschlossenen Drucker 
zur Dokumentation (manches braucht man eben 
„Schwarz auf Weiß‘). 

Mit einem Tastendruck geht es dann weiter. Die Fel- 
der der Personalstammdaten erscheinen und es wird 
zur Eingabe aufgefordert. Nach und nach sind die er- 
forderlichen (vom Programm angeforderten) Einga- 
ben zu machen. Angefangen mit dem Namen bis hin 
zu Eingaben über die Krankenversicherung etc. Da- 
nach werden die eingegebenen Daten auf dem Bild- 
schirm dargestellt und können, falls gewünscht, aus- 
gedruckt werden. 

Nun soll aber ja auch noch abgerechnet werden. Be- 
ginnend mit dem Abrechnungszeitraum und der Frage 
nach Stundenlohn oder Gehalt, fordert das Programm 
dann die ebenfalls noch zu berücksichtigenden Daten 
an. Dabei werden vom Programm natürlich auch das 


KABAECHhe NG 


BEBERSICHT 


EINGABE; 
Persmalstaandaten 
fhrechnangsdaten 
AUSUABE: . 
Bıldschirn 
drucker 


weiter nit Tastemliürk 


Weihnachtsgeld, Urlaubsgeld, Überstundenzuschläge 
usw. berücksichtigt. Sind diese Angaben dann ge- 
macht, dann erfährt man sofort das Bruttogehalt bzw. 
den Bruttolohn und kann ggf. noch verbessern. Etwas 
von Nachteil ist, daß man beim Verbessern alle Werte 
nochmal neu eingeben muß. Das Programm kann aber 
von jedermann ja noch ausgebaut und in diesem Punk- 
te verbessert werden. Programm-Ergänzungen und 
-Erweiterungen sind — je nach Geschmack des ein- 
zelnen — leicht möglich. . 
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j LISTING | 


LOHNABRECHNUNG 
von 
Bartram 
fuer 
Schneider aktiv 
CPC 464/664/6128 


K. 


FEHEERE 
EEERERE 


CLEAR 

MODE 2 

BORDER 5 

INK 8,26: INK 1,8: INK 2,8 

PEN 1:PEN#1,8:PEN#2,0 

PAPER 8: PAPER#1,1:PAPERH2, 1 

WINDOWNG, 1,88, 4,22 

WINDOW#L, 1,88, 1,3 

WINDOWN2, 1,88, 23, 25 

108 CLS:CLSHL:CLSNZ2 

118 LOCATE#1,22,2:PRINT#1,'LOHNA BR 
ECHNUNG 1986 

128 LOCATE#®,30,2:PRINTRO,"UEBERSI 
cHT" 

139 LOCATERG, 39, 3: PRINTHB, "------- 


199 LOCATE#9,18,6:PRINT#O, EINGABE 
an 


SSUBRSRRRTTNruRUNn 


159 LOCATEH2, 39,7:PRINTHZ, "Personalstamm 
daten" 

168 LOCATEHB, 30,9: PRINTHQ, "Abrechnungsda 
ten" 

178 LOCATEN9, 18,13: PRINTH@, "AUSG AB 
E :* 

LOCATE#9, 39, 14: PRINT#2, "Bildschirm" 
LOCATEX, 39, 16: PRINT#2, "Drucker" 
LOCATE#2, 39,2 

PRINT#2, "weiter mit Tastendruck" 
aßuINKEYS: IF aß="" THEN G0OTO 298 
cLSH2 

cLS 

CLEHL:CLENZ 

IF nameß‘>"" AND Istklasse<>d THEN 6 
639 

CLE:CLSNL:CLEH2 

G08UB 29808 

LOCATE#2, 22, 2:PRINT#2, "ARBEITGEBER: ® 
LOCATEH2, 42, 2: INPUT#2, arbg®# 

CLS#2 

LOCATEN2, 38, 2: PRINTN2, "NAME: " 
LOCATEH2, 42, 2: INPUTH2, nane® 

CLSH2 
LOCATEH2, 38,2: PRINT#2, "VORNAME: " 
LOCATEN2, 48, 2: INPUT#2, vornane® 
tL8H2 

LOCATE#2, 38,2: PRINT#2, "ORT: " 
LOCATEH2, 49,2: INPUT#2, ort$ 

CL$H2 
LOCATEHX2, 398, 2: PRINT#2, "STRASSE: " 
LOCATE#2, 42,2: INPUTH2, strasses 
CLSH2 
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469 LOCATEH2, 30,2: PRINT#2, "STEUERKLASSE: 
U} 


478 LOCATEH2, 45,2: INPUT#2, Istklasse 

#88 IF lstklasse<i OR Istklasse)& THEN C 
LS4#2:G0TO 469 

498 IF Istklasse=si OR lIstklasse=S THEN k 
inder=28:60T0 349 

s93 CLS#2 

3138 LOCATEH2, 30, 2:PRINT#2, "KINDER: " 

328 LOCATE#2, 45,2: INPUT#2, kinder 

338 IF kinder>8 AND Istklasse=i OR Istkl 
asse=5 THEN CLS#2:G0T0 468 

548 CL8H2 

332 LOCATEN2, 38,2:PRINT#2, "KIRCHENSTEUER 
s <j/n)" 

5629 LOCATE#2, 39,2: INPUTH2, kistklasses 
578 IF kistklasses‘)"j" AND kistklassen( 
>"n" THEN GDTO 358 

589 CLS#2 

399 LOCATEH2, 25, 2:PRINT#2, "LOHNSTEUER-FR 
EIBETRAG: " 

LOCATEH2, 62,2: INPUTH2, Istfb 
CLS:CLSHL:CLENR2 

G0SUB 19099 

G0SUB 29028 

CLS:CL8H2 

GOSUB 359898 

cL8 

CLSHl 

cL8H#2 

LOCATEH1, 25,25 PRINTHLÄ,'ABRECHN 
UNGSDATEN 

718 LOCATE 22,8:PRINT "ABRECHNUNGS-ZEITR 
AUM: ® 

728 LOCATE 45,8: INPUT abrzeit# 

739 CLS 

748 LOCATE 25,8:PRINT "STUNDENLOHN 


1» 
738 LOCATE 25,198: PRINT "FESTBEZUG (GEH 
ALT) 2>" 


768 a®=INKEYS: IF a6l)"L" AND asc)"2" THE 
N GOTO 768 

778 IF aß="i" THEN abr=1:608UB 59988 
788 IF a6="2" THEN abr=2:605UB 60908 
790 GOSUB 9298 

888 CLS 


GOSUB 6208 
dr=d 
LOCATE#1,22,2:PRINTHL,'LOHNA BR 
ECHNUNG 1986 
8688 LOCATE 25,8:PRINT "BILDSCHIRM 
<b>" 

878 LOCATE 25, 19: PRINT "DRUCKER 

{d>" 
868 LOCATE 23,12:PRINT "ENDE 

{ee )" 
899 as=INKEYS: IF a8C)"b" AND asc>"d" AND 
asX>"e" THEN GOTO 898 


LISTING 


998 IF aß="e" THEN GOTO 39908 

919 IF as="d" THEN dr=B ELSE dr=d 

928 CLS: PRINT#dr:PRINT#dr," Arbeitgeb 

er: "jarbgs1 TAB(4@)} "Arbeitnehmer: "$ 
namesj", "Ivorname® 

938 PRINT#Hdr, TAB(35) Jstrasse® 

9493 PRINT#dr, TAB(35) jort® 

959 PRINT#dr 

968 PRINT#dr:PRINTHÄdr," LOHNABRECHNUN 

QSZEITRAUM: "I TAB(49) Jabrzeit® 

97@ IF abr=i THEN GOSUB 1999 

989 IF abr=2 THEN GOSUB 20999 

9978 GOTO 899 

1898 PRINT#dr:PRINT#dr ,TAB(S) 

1818 PRINT#Hdr USING "RAR. 

1928 PRINTHdr, ® Stunden 5 

1832 PRINTHdr , USING"HH#. Knristal) 

1948 PRINT#dr, ® DM ="j 

1958 PRINT#dr, TAB(53) 35 

1868 PRINT#dr ,USING"HH HAHN. AH" lohnt 

1878 PRINT#dr," DM" 

1868 PRINT#dr,TAB(S) $ 

1899 PRINT#dr ,USING "HH. HH" juestdj 

1188 PRINT#dr," Ueberstd x "y 

1118 PRINT#dr ,ULSING"HAH. HH"Istditluestdz 

+19) /1001 

11298 PRINT#Hdr," DM ="$ 

PRINT#dr , TAB(S5) } 

PRINT#dr ,ULSING"HR, Hält. HH" Juelohnı 


1158 PRINT#dr," DM" 

1168 PRINT#dr, TAB(S) 3 

1178 PRINT#dr ‚USING "HH. #4") krankstdj 
1188 PRINT#dr," Krankstd x ". 
1198 PRINTHdr ,USING"HAH. HH" Iatdl} 


PRINT#dr," DM ="} 
PRINT#dr , TAB(53) } 
PRINT#dr , USING" HR, AAN. ##"jkranklohn 


PRINT#dr," DM" 

PRINT#dr , TAB(5) 5 

PRINT#dr USING "AHH. HN" jurimtds 
PRINT#dr," Urlaubstd x "I. 
PRINT#dr , USING’HRH. HH" Iutdl} 
PRINT#dr," DM ="j 
PRINT#dr , TAB(S5) 5 

PRINT#dr , USING" HH, HH. HH" Jurllohni 
PRINT#dr," DM" 

PRINT#dr , TAB(12) 3} 
PRINT#dr , "Urlaubsgeld"} 
PRINT#dr , TAB(55) } 

PRINT#dr , USING’ HH, HAN. HR" Jurigelds 
PRINT#dr," DM" 

PRINT#dr , TAB(12) 35 
PRINT#dr , "Weihnachtsgeld" 
PRINT#dr , TAB(55) } 

PRINT#dr, USING"#H, nr. AN" Ineihngeld 


1329 
1338 
1349 
1359 
1369 
1378 
1389 
1399 
1998 
; 

1418 PRINT#dr," DM" 

1428 PRINT#dr,TAB(12)} 
1438 PRINT#dr,"VL-AG"$ 
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1449 
1459 
1468 
1479 
1489 
1498 


PRINT#dr , TAB(35) J 

PRINT#Hdr ,USING’HH, HHH. HH" IT vn 
PRINT#dr," DM" 

PRINT#dr , TAB(55) 5 

PRINT#dr, "------------ . 
PRINT#dr , TAB(6) $ 

15988 PRINTKdr, BRUTTO :"I 

1518 PRINT#dr, TAB(34) } 

1528 PRINT#dr ,LSING"HRH, HAN. HR" Ibrutto 
1538 PRINT#dr," DM" 

1549 IF dr<)8 THEN LOCATE#2, 39,2: PRINTHZ 
‚„"weiter mit Tastendruck" 

1558 IF dr<)8 THEN a@=INKEYS: IF as="" TH 
EN 6010 1559 

1569 CLS#2 

15378 GOTDO 3088 

2888 PRINT#dr:PRINT#dr,TAB(S) $ 

2818 PRINT#dr, "Gehalt" 

2828 PRINT#dr , TAB(S5) 3} 

2838 PRINT#dr , USING"HH, HAHN. HH"Igehaltı 
2248 PRINT#dr," DM" 

2859 PRINT#dr, TAB(S) 3} 

2968 PRINT#dr, "Ueberstunden"} 

2878 PRINT#dr, TAB(55) 3 

20888 PRINT#dr , USING"HH, HAN. HH" juegelds 
289728 PRINT#dr," DM" 

2188 PRINT#dr, TAB(S) 3} 

2118 PRINT#dr, "Urlaubsgeld"} 

2128 PRINT#dr, TAB(S5) 3} 

2138 PRINTHdr ,USING"HR, HAN. HH"Juribgelds 


2149 
2138 
2168 
2178 
2189 
2198 
2208 
2218 
2228 
2230 
’ 

2248 
2258 
2268 
2278 
2288 
22989 
2398 
2318 
2320 


PRINT#dr," DM" 

PRINT#dr, TAB(S) } 
PRINT#dr , "Zuschlaege"| 
PRINT#dr , TAB(55) 5 

PRINT#dr , USING’HR HAN. HH" zuschii 
PRINT#dr," DM" 

PRINT#dr , TAB(S3) } 
PRINT#dr , "Weihnachtsgeild"} 
PRINT#dr , TAB(55) } 

PRINT#dr ,USING’HR, HAN. HH" Jweihngeld 


PRINT#dr," DM" 

PRINT#dr , TAB(S5) } 

PRINT#dr , "VL-AG"} 

PRINT#dr , TAB(355) 

PRINT#dr ,USING’HR, HHH.HH"Ivlagı 

PRINT#dr," DM" 

PRINT#dr , TAB(35) } 

PRINT#dr, "----- u 5 

PRINT#dr , TAB(5) } 

2338 PRINT#dr, BRUTTO :" 

2348 PRINT#dr, TAB(54) } 

2359 PRINT#dr ,USING’HRH, HAN. AH" bruttos 

2368 PRINT#dr," DM" 

2498 IF dr<)8 THEN LOCATER2, 30, 2:PRINT#2 
‚"weiter mit Tastendruck" 

2418 IF dr<)8 THEN as=INKEYS:IF at="" TH 

EN GOTO 2419 

2428 CLS#2 


LISTING 


2438 CLS 

2448 GOTO 3098 

3222 CLS:PRINT#Hdr:PRINT#dr, TAB(S)J"LSTt-K 

lasse: "5:PRINT#dr, TAB(ZB) | Istklassej "/"5 
kinder 

3818 PRINT#dr, TAB(S)}J 

3828 PRINT#dr, "LSt-Brutto: "j 

3838 PRINT#dr , TAB(22)1 

3048 PRINT#dr ,USING’HH, HH. HH"jbrutto-1s 

tfb-wtbi :PRINTKdr," DM" 

PRINT#dr , TAB(5) 5 

PRINT#dr , "Lohnsteuer: "} 

PRINT#dr , TAB(37) 

PRINT#dr , USING "HH, HUHN. HH" Ist} 

PRINT#dr," DM" 

PRINT#dr , TAB(5) 5 

PRINT#dr , "Kirchensteuer: "j 

PRINT#dr , TAB(37) 3} 

PRINT#dr , USING"HH HAN. AH" I kist) 

PRINTKdr," DM" 

PRINT#dr , TAB(37) 

PRINTHdr,"--------- - -- R 

PRINT#dr , TAB(37) 3 

PRINT#dr , USING "HH HAN. HH" Istrkist) 

PRINT#dr," DM’ 

PRINT#dr , TAB(35) } 

PRINT#dr , USING" HH, AHH.HH"I Ist+kistj 


3228 PRINT#dr," DM" 

3238 PRINT#dr:PRINT#dr, TAB(S) 5: PRINTHdr, 
"Krankenkasse: "| 

3248 PRINT#dr , TAB(31) KK 

3258 PRINT#dr, TAB(S) 1: PRINT#dr, "SV-Brutt 
| 

3268 PRINT#dr , TAB(22) 3 

3278 PRINT#dr ,USING’HH, HUN. #4" jbruttos:P 
RINT#dr," DM" 

3288 PRINT#dr,TAB(S) j 

3298 PRINT#dr, "Krankenvers.:" 

33289 PRINT#dr, TAB(25) 3} 

3318 PRINT#dr,"t"JUSING"’HA. HH" IKKprozi:P 
RINT#dr," 

3328 PRINT#dr, TAB(37) 1 

3339 GOSUB 65999: PRINT#Hdr , USING"’HH, Hau. # 
#"Ikkbruttotkkproz/128} 

3348 PRINT#dr," DM" 

3358 PRINT#dr , TAB(3) } 

3368 PRINT#dr, "Rentenvers.:'"j 

3378 PRINT#dr, TAB(25) 

3388 PRINT#dr, "("JUSING’HH.AH"IrVprozi:P 
RINT#dr," 9" 

3398 PRINT#dr , TAB(37) j 

3428 GOSUB 63999: PRINT#Hdr ,USING"AH, HAN. 4 
W"irvbruttotrvproz/12dj 

3413 PRINT#dr," DM" 

3428 PRINT#dr, TAB(3) 35 

3438 PRINT#dr, "Arbeitslosenvers.:”j 

3448 PRINT#dr , TAB(23) }j 

3458 PRINT#dr,"("JUSING"HH. HH" Jalprozi:P 
RINT#dr," 3 
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39468 PRINT#dr, TAB(37) 35 

3478 PRINT#dr ,USING"HH, HAN. HH" I rvbrutto* 
alproz/188j 

3488 PRINT#dr," DM” 

3492 PRINT#dr , TAB(37) 3 

35988 PRINT#dr, "------------ " 

3518 PRINT#dr, TAB(37)3 

3328 svges=(kkbrutto%kkproz/188) +(rvbrut 
to#rvproz/188) +(rvbrutto*alproz/129) 
3538 PRINT#dr ,USING"AH, HAHN. HH" Isvges) 
3548 PRINT#dr," DM"j 

3558 PRINT#dr, TAB(55) 

3568 PRINT#dr ,USING"HH, HAN. HH" Isvges) 
3578 PRINT#dr," DM’j 

3588 PRINT#dr, TAB(S5) 

3598 PRINT#Hdr,"------------ ’ 

3688 PRINT#dr, TAB(S5) } 

3618 PRINT#dr, "NETTO "I 

3628 PRINT#dr, TAB(35) } 

3638 netto=brutto- (Ist+kist) -svges 

3648 PRINT#dr ,USING"AH, HAN. HH"Inettos 
3658 PRINT#dr," DM" 

3668 IF dr<)>8 THEN LOCATER2, 398, 2:PRINTH2 
‚"weiter mit Tastendruck" 

3678 IF dr<>8 THEN as=INKEYS: IF as="" TH 
EN GOTO 3678 

3689 CLS#2 

3698 G0TO 9599- 

4888 IF dr<)8 THEN LOCATENH2, 30,2: PRINTH2 
‚"weiter mit Tastendruck" 

a218 IF drt>8 THEN as=INKEYS:IF as="" TH 
EN GOTO 4918 

4928 CLS#2:CLS:PRINT#Hdr 

4038 PRINT#dr, TAB(S) I: PRINTHdr, "Krankenk 
ause: ’j 

4248 PRINT#dr, TAB(498) 5: PRINT#dr ,kk$: PRIN 
T#dr 

4858 PRINT#dr,TAB(S) 

40968 PRINT#dr, "Krankenversicherung Arbei 
tgeberanteil:"j 

4278 kkagsbrutto%kkproz/180 

#288 PRINT#dr, TAB(33) J 

4298 PRINT#dr ,USING’HH, AAN. HH" Ikkagı 
4128 PRINT#dr," DM" 

a118 PRINT#dr,TAB(S) 

4128 PRINT#dr, "Rentenversicherung Arbeit 
geberanteil:"j 

4139 rvag=bruttofrvproz/108 

4148 PRINT#dr, TAB(S3) j 

4158 PRINT#dr ,USING’HH, HAN. HH" Irvagı 
4168 PRINT#dr," DM" 

4178 PRINT#dr, TAB(S) j 

4188 PRINT#dr, "Arbeitslosenversicherung 
Arbeitgeberanteil:’j 

4198 alagebrutto%alproz/199 

4298 PRINT#dr, TAB(S5) 

4218 PRINT#dr ,USING’HH, HAN. HH" Jalagı 
4228 PRINT#dr," DM" 

4238 PRINT#dr, TAB(55) } 

4248 PRINT#dr, "------------ » 


LISTING 


4258 
4268 
." 

4279 
4280 
4298 
4319 


PRINT#dr , TAB(S) 5 
PRINT#dr , "SUMME ARBEITGEBERANTEILE 


PRINT#dr ,TAB(35) 5 

PRINT#dr , USING" HH, HAN. HH" Isvges 
PRINT#dr," DM" 

PRINT#dr ,TAB(S) } 


4328 PRINT#dr, "SUMME ARBEITNEHMERANTEILE 
." 

4338 PRINT#dr , TAB(S3) 5 

4348 PRINT#dr, USING"AH, HRN. HH" I svgesi 

4358 PRINT#dr," DM" 

4369 PRINT#dr, TAB(S3) 3} 

4378 PRINT#dr, "------------ n 

4388 PRINT#dr, TAB(33) 3} 

4398 PRINT#dr , USING" HH, HAN.HH"IZISvges) 


4488 PRINT#dr," DM" 

4418 IF umi@="Ui (2.4%)" THEN ulsbrutto* 
2.4/190 

4428 IF umi@="U2 (9.1%)" THEN u2=brutto# 
9.1/198 

4438 IF uml6="Ul/U2" THEN ul=brutto#2.4/ 


IF umi$="U1/U2" THEN u2ebrutto%9.1/ 


PRINT#dr , TAB(S) 5 

PRINT#dr, "Umlage Ui (2.4 %"} 
PRINT#dr, TAB(37) 3} 
PRINT#dr , USING" AA, HAN. HM" Jul 
PRINT#dr," DM" 

PRINT#dr, TAB(S) 5 

PRINT#dr, "Unlage U2 (8.1 9" 
PRINT#dr , TAB(37) } 
PRINT#dr , USING" AH, HAH.AH"Ju23 
PRINT#dr," DM" 

PRINT#dr , TAB(37) } 

PRINT#dr, "------------ . 
PRINT#dr , TAB(S) 5 

PRINT#dr , "SUMME UMLAGEN : "5 
PRINT#dr , TAB(37) 3} 

PRINT#dr , USING" HR, ARN.HH"Jul+u2I 
PRINT#dr," DM"S 
PRINT#dr , TAB(S3) } 

PRINT#dr , USING" AH, HAN. HA" sul+u2s 


4698 PRINT#dr," DM" 

4658 PRINT#dr,TAB(SS) } 

a668 PRINT#Hdr,"--------- . 

4678 PRINT#dr,TAB(S)} 

4668 PRINT#dr, "SUMME SOZIALVERSICHERUNG 


PRINT#dr, TAB(55) 5 

PRINT#dr ,USING"AR, AAN. AN" Zisvgestu 
I+u2} 

4718 PRINT#dr," DM" 

4728 PRINT#dr ,TAB(S3)} 

4739 PRINT#dr,, "sesezzuzzuuz=" 

4748 IF dr<>8 THEN LOCATEH2, 39,2: PRINTH2 
‚"weiter mit Tastendruck" 

4758 IF dr<)8 THEN as=INKEYS: IF as="" TH 
EN GOTO 4758 
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4768 CLS 

4778 RETURN 

5299 CLS:CLEHL:CLENZ 

5318 LOCATE#H1,22,2:PRINTHL,'LOHN AB 

RECHNUNG 1986" 

5928 LOCATE 23,5: PRINT WIRKLICH 
LOESCHEN ?" 

5938 LOCATE 23,9: PRINT "J A 

= (j> 

5848 LOCATE 23,11:PRINT "NEIN 

= <n) " 

5959 as=INKEYS:IF asl)"j" AND asX>"n" TH 

EN GOTO 3938 

5068 IF a8="j" THEN END ELSE GOTO 899 

' Berechnung LST-Klassen 

IF lIstklasse=i THEN GOSUB 6198 

IF lstklasse=2 THEN GOSUB 6299 

IF Istklasse=3 THEN GOSUB 6398 

IF lstklasse=4 THEN GOSUB 6498 

IF Istklasse=3 THEN B0SUB 6598 

IF Istklasse=6 THEN GOSUB 6400 

G0OTO 7898 

’ LST-Klasse 1 

GOSUB 6788 

zve=(brutto-Istfb-wtb) #12- (488+3564+ 

vorsorge+272) 

61389 RETURN 

6208 ' LST-Klasse 2 

6218 IF kinder=8 THEN GOTO 6188 

6228 GOSUB 67089 

6238 zve=(brutto-Isttfb-wtb) #12- (480+564+ 

vorsorge+278+4336+ (kinder*#2484) ) 

6248 RETURN 

6308 ' LST-Klasse 3 

6318 GOSUB 6708 

6329 zve=(brutto-Istfb-wtb)*12- (480+564+ 

vorsorge+3549+(kinder*+2484) ) 

#338 RETURN 

6498 ' LST-Klasse 4 

6418 GOSUB 6708 

6428 zve=(brutto-Istfb-wtb) #12- (480+564+ 

vorsorge+270+(kinder%1242) ) 

6438 RETURN 

' LST-Klasse 5 

GOSUB 6708 

zve=(brutto-Isttb-wtb)#12- (489+364) 


RETURN 

'LST-Klasse 6 
zve=((brutto-1Isttb)*12) -18 

RETURN 
vpauschA=(brutto#12-wfb) 9.29 

6718 IF lutklasse‘)3 AND vpauschA)2348 T 
HEN vpauschA=2349 

6715 IF Istklasse=3 AND vpauschA)4689 TH 
EN vpauschA=4688 

6728 vpauschB=(brutto#l2-wfb) #2. 09 

6738 IF Istklasse‘)3 AND vpauschB>1178 T 
HEN vpauschB=1178 

6735 IF Istklasse=3 AND vpauschB?2348 TH3d 


LISTING 


EN vpauschB=2348 

6748 pv=(vpauschA+vpauschB) /34 

6758 vorsorge=INT (pv)#34 

6768 RETURN 

8088 ’ Berechnung der Lohnsteuer 

218 IF Istklasse=3 OR Istklasse=3 THEN 
zz=zve/2 ELSE zz=zve 

7828 IF lstklasse=S5 OR Istklasse=&4 THEN 
GOTO 7298 

7838 zt=zz/34:zveb=INT(zt)454: xuzveb 
7849 y=(x-18089) /19990 

7059 z=(x-800080) /10908 

7868 IF x(=4536 THEN et=f 

7878 IF x)>45336 AND x(=18235 THEN et=(9.2 
2Xx)-998 

BER IF x)>180836 AND x(=80827 THEN et=((( 
2. 1#y-36. 22) Hy+6DD) Kyr2200) ty+2962 

7098 IF x)80827 AND x(=139831 THEN et=(4 
2Xz+S5100)%2+29417 

7188 IF x)=138232 THEN et=(8.36%x)-16433 
7118 IF Istklasse=3 THEN eink=INTiet*#2) 
ELSE eink=INT (et) 

7128 Ist=eink/12:G0T0 73598 

7288 ' Lohnsteuerklasse 3 k 6 

7210 zt=ez22/34: zveb=INT(zt)%34 

7228 xa=zvebt2.3:xb=zveb#l.3 

7230 ya=(xa-18900) /109900: yb=(xb-18880) /1 
2808 
7248 
DDRB 
258 


za=(xa-60200) /10000: zb=(xb-E02R2) /1 


IF xac=4536 THEN etb=d 

7268 IF xb(=4534 THEN eta=d 

278 IF xa)45336 AND xa(=18835 THEN etasi 
D. 22%xa) -998 

7268 IF xb)>4536 AND xb<=18835 THEN etb=t 
8. 22%xb) -998 

7298 IF xa>18036 AND xa<(=800927 THEN eta= 
(12. Itya-36.D2)Hyar6Ddd) kyar2200)kyar296 
2 

7328 IF xb>18836 AND xb(=88927 THEN etb= 
(((2,.1%yb-36. 82) tyb+6BQ) kyb+2200) Kyb+296 
2 

7318 IF xa)>80827 AND xa<=130031 THEN eta 
=(42%za+3180) %zar29417 

7328 IF xb>88827 AND xb(=130831 THEN etb 
=(42%zb+3189)%zb+29417 

7338 IF xa)=130032 THEN etas= (9, 56*xa)-16 
433 

7348 IF xb>=130832 THEN etb= (8, 56%xb) -16 
433 

7358 IF Istklasse=S THEN eink=INT((eta-e 
tb)*2) ELSE eink=INTieta-etb) 

7368 IF eink(zveb#2.22 THEN eink=zveb#ß2. 
22 

7378 lst=eink/12 

7588 ' Berechnung Kirchensteuer 

7512 IF kistklasses="n" OR kistklausege=" 
N" THEN kist=d: RETURN 

7328 kist=(1st-(kindert62Q) ) 0.09 

7538 IF kist‘@ THEN kist=d 
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RETURN 

' Berechnung Sozialversicherung 
abzugkk=brutto%kkproz/108 
abzugrv=bruttotrvproz/108 
abzugal=sbrutto#alproz/120% 

umlage =brutto%uml /199 

CL8 

CLöH1 

CLSH2 

LOCATE#1,39,2:PRINT#1, "NETTO BE- UN 
D ABZUEGE® 

LOCATE 25,4: PRINT "VWL:" 

LOCATE 25,4: PRINT "Sparzulage (in % 


LOCATE 25,8: PRINT "Fahrgeld:" 
LOCATE 25, 19:PRINT "Kleidergeld: " 
LOCATE 25,12:PRINT "Ausloesung: " 
LOCATE 25,14: PRINT "sonst. Nettobez 


LOCATE 25,16:PRINT "sonst. Nettoabz 


LOCATEN2, 38, 2:PRINTH2, "VWL:® 
LOCATE#2, 39,2: INPUT#2,vlan 

CL842 

LOCATE 58,4:PRINT USING "HH, Hank. HN" 
vlanı: PRINT " DM® 

9159 LOCATE#2,39,2:PRINT#2, "Sparzulage ( 
in W:;*® 

9168 LOCATEH2,359,2: INPUTR2, sparzul 

9178 CLEH2 

9188 LOCATE 39,6: PRINT USING "AH, Hun. Hu" 
Isparzuij:PRINT ® %’ 

9198 LOCATEN2, 38, 2:PRINTH2, "Fahrgeld: " 
9228 LOCATEH2, 59,2: INPUTH2, tahrgeld 
9219 CLS#H2 

9228 LOCATE 59,8: PRINT USING "HH, HAHN. HN" 
sfahrgeld):PRINT " DM" 

9238 LOCATENZ, 38, 2:PRINT#2, "Kleidergeld: 
u 


9249 LOCATE#2,59, 2: INPUT#2,kleidergeld 
9252 CLEH2 

9268 LOCATE 32,18: PRINT USING "HH, HNN. HH 
"jkleidergeldj :PRINT " DM" 

9278 LOCATEH2, 38, 2:PRINT#2, "Ausloesung: " 
9288 LOCATE#2, 59,2: INPUT#2, ausloesung 
9299 CLS#2 

9308 LOCATE S8,12:PRINT USING "HH, HHh. HH 
"Jausloesung): PRINT " DM" 

9319 LOCATEH2, 30,2:PRINTH2, "sonst. Netto 
bezug: " 

9328 LOCATE#2,39,2: INPUT#2, sonstbez 

9338 CLS#2 

9348 LOCATE 38, 14:PRINT USING "HH, HHH. HH 
"isonstbezj:PRINT " DM" 

9359 LOCATE#2,39,2:PRINT#2, "sonst. Netto 
abzug:”" 

9368 LOCATER2, 32, 2: INPUT#2, sonstabz 

9378 CLSH2 

9388 LOCATE 39,16:PRINT USING "HH, Hk. HH 
"isonstabzj:PRINT * DM" 


LISTING 


9398 LOCATEN2, 30, 2:PRINT#2, "KORREKTUR 
<jtn) 

9498 as=INKEYS: IF asl>"j" AND as<)"J" AN 
D asC)"n" AND asC)"N" THEN GOTO 9498 

IF ag="j" OR as="J" THEN GOTO 9899 
RETURN 

CLS:PRINT#dr 

PRINT#dr , TAB(5) 5 

PRINT#dr,"- VL" 

PRINT#dr , TAB(37) } 

PRINT#dr ,USING"HH HAN. HH" sIvlans 
PRINT#dr," DM" 

PRINT#dr , TAB(5) } 

PRINT#dr,"+ Sparzulage"} 
PRINT#dr , TAB(37) 5 
spz=vlan%sparzul/108 
PRINT#dr , USING’HH HAN. HH" I 5pzI 
PRINT#dr, " DM" 

PRINT#dr, TAB(S) 3 

PRINT#dr, "+ Fahrgeld"} 

PRINT#dr, TAB(37) 

PRINT#dr , USING "HH HAN. HH" Fahrgelds 


PRINT#dr," DM" 

PRINT#dr , TAB(S5) 5 

PRINT#dr, "+ Kleidergeld"} 

PRINT#dr, TAB(37) 3 

PRINT#dr , USING"’HH, HAN. AHH"jkleiderge 


PRINT#dr, " DM" 

PRINT#dr, TAB(5) } 

PRINT#dr,"+ Ausloesung"j 
PRINT#dr , TAB(37) 

PRINT#dr , USING" HH, ARH. HH" Jausloesun 


PRINT#dr," DM" 

PRINT#dr , TAB(5) 5 

PRINT#dr,"+ sonst. Nettobezug"j 
PRINT#dr, TAB(37) 8 

PRINT#dr , LSING’HR HH. ##"5 sonstbezj 


PRINT#dr, " DM" 

PRINT#dr , TAB(5) 35 

PRINT#dr,"- sonst. Nettoabzug”j 
PRINT#dr , TAB{37) 

PRINT#dr , USING" HH, #4. #4"; sonstabz 
PRINT#dr," DM" 
PRINT#dr , TAB(37) 5: PRINT#Hdr , "------- 
...a= u 

9868 PRINT#dr, TAB(S) 5:PRINT#dr, "NETTO BE 
- UND ABZUEGE : "5 

9898 nett=-vlan+spz+fahrgeld+kleidergeld 
+ausloesung+sonstbez-sonstabz 

9998 PRINT#dr, TAB(37) 5: PRINT#dr ,USING"H# 
‚Huu.#H"Inetts:PRINTAdr," DM" 

9919 PRINTHdr, TAB(SS) 5: PRINT#dr ,USING"H# 
‚nun. HH"snettz 

9928 PRINT#dr," DM" 

9938 PRINT#Är, TAB(55) 5: PRINT#HÄr, "------- 
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9948 PRINT#dr, TAB(S) J 

9938 PRINT#dr, "AUSZAHLUNGSBETRAG : "5 
9968 PRINT#dr, TAB(SS) 3 

9978 ausz=enetto+nett:PRINT#dr ,USING"#HH,# 
HH.HH"Jauszi:PRINTHdr," DM" 

9988 PRINT#dr, TAB(SS) 1 5PRINTHdr , "amnanza 
zuzzn! 

9998 GOTO 4999 

18888 CLS:CLSH1:CLSH2 

18918 LOCATEH1,25,25PRINT#H1, "SOZIAL 
VERSICHERUN 6" 

19928 LOCATEX2,11,2:PRINT#2,"KV = Kranke 


nvers. / RV = Rentenvers. / AL = Arbeits 

losenvers. " 

19838 LOCATE 28,6:PRINT "KV / RV / AL 
17" 

18948 LOCATE 29,8:PRINT "RV + AL (ohne 

KV) 127" 

198859 LOCATE 29,18:PRINT "KV + RV (ohne 

AL) 3)" 

190689 LOCATE 29,12:PRINT "keine Sozialve 

rsicherung 47" 


19878 as=INKEYS: IF asl>"1" AND asc>"2" A 
ND asC)"3" AND as‘)"4" THEN GOTO 19878 
19988 IF a@="4" THEN GOTO 19369 

180890 IF a6="2" THEN GOTO 10508 

18198 IF as="3" THEN GOTO 19559 

18119 IF as="i" THEN GOTO 196098 

181358 CLS:CLSH2 

10168 LOCATE 38,2:PRINT 
KASSE" 

18178 LOCATE 39,6:PRINT 
1)" 

LOCATE 39,8: PRINT 
(2>" 

LOCATE 38,18: PRINT 
3)" 

LOCATE 39,12: PRINT 
a7" 

LOCATE 38,14: PRINT "ANDERE 

57" 

19228 as=INKEYS:IF asC>"1" AND asc>"2" A 
ND asc)"3" AND aut)"4" AND auı)"5" 

THEN GOTO 19229 
as="L" THEN 
ag="1" THEN 
ag="2" THEN 
as="2" THEN 
a6="3" THEN 
a$="3" THEN 
a6="4" THEN kkproz=6.15 
ag="4" THEN kk6="KKH" 
auc)"5" GOTO 19389 


KRANKEN 
"AOK 


19188 "DAK 


18198 "BEK 


19228 "KKH 


19218 


19239 
10249 
19259 
19268 
19278 
18288 
19299 
19399 
18318 
198329 CLS#H2 

18338 LOCATEX2,39,2:PRINT#2, "NAME DER KR 
ANKASSE ;" 

18348 LOCATEH#2, 39,2: INPUTH2, kk® 

18359 CLS#2 

19369 LOCATEH2, 30,2:PRINT#2, "KRANKENKASS 
E in%:" 


kkproz=3,95 
kkt="AOK" 
kkproz=6.15 
kks="DAK" 
kkproz=6.1 
kk6="BEK" 


| LISTING 


18378 LOCATE#2,38,2: INPUT#2, kkproz:GOSU 
B 19638 

18388 CLS:CLSH1:CLSH2 

19399 GOSUB 196438 

19488 RETURN 

19588 kkproz=d 

19518 rvproz=9.6 

18528 alproz=2 

18538 GOTO 19388 

18558 rvproz=9,6 

19569 alproz=d 

19579 GOTO 18138 

19688 rvproz=9.6 

18618 alproz=2 

19628 GOTO 19158 

19638 CLS:CLSH2 

18648 LOCATE 26,4:PRINT "UMLAGEPF 
LICHT 

18658 LOCATE 26,7:PRINT "UMLAGE Uli (= 2 


4%) <19>" 
19668 LOCATE 26,9:PRINT "UMLAGE U2 (= 8 
1%) 2)" 


10678 LOCATE 26, 11:PRINT "UMLAGE Ui k U 

2 rt 

10688 LOCATE 26, 13:PRINT "keine UMLAGE 
eg, 

10699 a®=INKEYS:IF aBC>"1® AND asc)"2" A 

ND a8C)"3" AND as<)"4" THEN GOTO 19698 

10708 IF a@="1" THEN unis="ULl (2.4%)* 

18718 IF a@="2" THEN umls="U2 (9,1%) * 

18728 IF aß="3° THEN uml®="UL/U2" 

19738 IF a@="4" THEN umle="" 

18748 CLS:CLSH2 

18758 RETURN 

20088 LOCATENL,23,2:PRINTHL,' PERSON 

ALSTAMMDATEN 

208018 PRINT#dr:PRINT#dr,TAB{S) J: PRINTHdr 

‚ "ARBEITGEBER: "| 

20828 PRINT#dr, TAB(22)5:PRINTNdr,arbgs: P 

RINTHdr 

20038 PRINT#dr:PRINT#dr ,TAB(5) J: PRINTAdr 

‚ "NAME: = 

20048 PRINT#dr, TAB(22) 1 :PRINT#dr, nameßj 

20058 PRINT#dr, TAB(42) |: PRINT#dr, "VORNAM 

Eı'1 

20068 PRINT#dr, TAB(62) J:PRINT#dr,vorname 

N 

20878 PRINT#dr:PRINT#dr , TAB(5) | :PRINTHdr 

‚"ORT:"I 

20988 PRINTHdr, TAB(22) 1: PRINT#dr,ort®} 

20898 PRINT#dr, TAB(42) 3: PRINTHdr, "STRASS 

E:’j 

20188 PRINT#dr, TAB(62) |: PRINTHdr, strasse 

|) 

20118 PRINT#dr:PRINT#dr ,TAB(5) J:PRINT#dr 

‚ "STEUERKLASSE: "} 

20128 PRINT#dr, TAB(21)J:PRINTHdr, Istklas 

se) 

20138 PRINT#dr , TAB(42) 1: PRINT#dr, "KINDER 


130 


20148 PRINT#dr, TAB(6&1) J:PRINT#dr, kinder 
28158 PRINT#dr:PRINT#dr , TAB(S) 5: PRINTKdr 
„ "KIRCHENSTEUER: "} 

20168 IF kistklasse$="j" THEN PRINT#dr,T 
AB(22)3:PRINT#Hdr, "ja (9 9" 

28178 IF kistklasses="n" THEN PRINT#dr,T 
AB(22) 5: PRINTKdr, "keine"j 

208188 PRINT#dr, TAB(42) 3 :PRINT#dr, "LST-FB 


28198 PRINT#dr,TAB(61) 5 :PRINT#dr, Isttbj: 
PRINT#dr," DM" 

28288 PRINT#dr 

28218 PRINT#dr, TAB(5) J:PRINT#dr, "KRANKEN 
KASSE: "j 

20228 PRINT#dr , TAB(22) 5 :PRINT#dr,kkS} 
20238 IF kk$="" THEN PRINT#dr,TAB(22)5:P 
RINT#dr, "keine"j 

20248 PRINT#dr, TAB(42) J:PRINT#dr, "BEITRA 
BSSATZ:"J 

208258 PRINT#dr,TAB(&1) 5: PRINTHdr USING * 
RH.AH"Ikkprozs:PRINTHdr, " %" 

20268 PRINT#dr:PRINT#dr ,TAB(S) 5: PRINTHAdr 
‚ "RENTENVERS. : "5 

28278 PRINT#dr , TAB(Z1) 5: PRINTHdF,USING " 
RA.#H#"Irvprozis:PRINTKdFr, " %"j 

202609 PRINT#dr , TAB(42) 5: PRINT#dr,, "ARBEIT 
SLOSENVERS: "I 

20298 PRINT#dr, TAB{&L)J:PRINTHdr USING " 
HH." Talprozi:PRINTHdr, " %" 

28308 PRINT#dr:PRINTHÄdr, TAB(S) I 5PRINTHdr 
‚ "UMLAGEPFLICHT: "5 

28318 IF uml$="" THEN PRINT#dr, TAB(22) 3}: 
PRINT#dr, "keine"; 

20328 IF umls<)"" THEN PRINT#dr, TAB(22) 1 
:PRINT#dr,"ja"j 

20338 PRINT#dr, TAB(42) 5: PRINT#dr,, "UMLAGE 
SATZ: "J 

208349 PRINT#dr, TAB{62) ) :PRINT#Adr ,umi®5PR 
INT#dr 

20358 LOCATER2, 30,2: PRINT#2, "WEITER MIT 
TASTENDRUCK" 

20368 a®=INKEYS: IF aß="" THEN GOTO 29348 


20378 CLSH2 

28388 RETURN 

35989 CLS 

35919 CLEHL:CLSH2 

35828 LOCATE#L,23,2:PRINTHI, "PER SON 

ALSTAMMDATEN 

33838 LOCATE 23,18:PRINT "DRUCKEN 
<D>" 

33848 LOCATE 25,14:PRINT "WEITER 
gw>" 

33058 as=INKEYS: IF aut>"d" AND asC>"D" A 

ND as<>"w" AND asl)"W" THEN GOTO 35958 

35068 IF as="n" OR aß="W" THEN RETURN 

33978 IF aß="d" OR aß="D" THEN dr=8: G0SU 

B 200899:G0T0 33999 

35989 dr=2 

35898 RETURN 


LISTING 


59898 CLS 

59218 CLSHL 

59928 CL8#2 

59939 LOCATE#1, 398,2: PRINT#1, "ABRECHNUNG 
STUNDENLOHN" 

59848 LOCATE 5,2:PRINT "Stundenlohn: " 
59859 LOCATE 5,4:PRINT "Stunden: " 

59868 LOCATE 3,6:PRINT "Ueberstunden:" 
58278 LOCATE 3,8:PRINT "Ueberstundenzusc 
hlag: 

50288 LOCATE 3,180: PRINT "Krankheitsstund 
en:" 

59898 LOCATE 3,12:PRINT "Urlaubsstunden: 
u 


s2188 LOCATE 3,14:PRINT "Urlaubsgeld:" 
S8118 LOCATE 3,16:PRINT "Weihnachtsgeld: 
“ 


S9115 LOCATE 3,18:PRINT "VWL-Arbeitgeber 
anteil:" 

s59128 LOCATE#2,29,2:PRINT#2, "Stundenlohn 
.n 


58138 LOCATE#2,39,2: INPUT#2, stdl 

52149 CLS#2 

s8158 LOCATE 39,2:PRINT USING "HH, HAN. HH 
"ıstdlJ:PRINT " DM" 

38168 LOCATE#2,29,2:PRINT#2, "Stunden: " 
32178 LOCATE#2,38,2: INPUT#2, std 

sg188 CLS#2 

58198 LOCATE 38,4:PRINT USING "HA, Hu. HH 
"istd):sPRINT " Std." 

50288 LOCATE#2,20,2:PRINT#2, "Ueberstunde 
n:" 

58218 LOCATEH2,39,2: INPUT#H2, uestd 

59228 CLS#2 

59238 LOCATE 32,6:PRINT USING "HH, HAN. HH 
"suestdj PRINT " Std." 

50248 LOCATE#2,29,2:PRINT#2, "Ueberstunde 
nzuschlag: " 

59259 LOCATE#2,50,2: INPUT#2, uestdz 

50268 CLS#2 

58278 LOCATE 39,8:PRINT USING "HH, HH. HH 
"tuestdzj:PRINT " %" 

592288 LOCATE#2,28,2:PRINT#2, "Krankheitss 
tunden: " 

50298 LOCATE#2,39,2: INPUT#2, krankstd 
50398 CLS#2 

32318 LOCATE 39,18:PRINT USING "HH, HN. 
#"jkrankstd): PRINT " Std." 

39320 LOCATERX2,28,2:PRINT#2, "Urlaubsstun 
den: " 

32339 LOCATE#2,39,2: INPUT#2,uristd 

39348 CLS#2 

39339 LOCATE 39,12:PRINT USING "HH,HHH.H% 
“"juristd):sPRINT * Std." 

393649 LOCATEN2, 28,2: PRINT#2, "Urlaubsgeld 
au 


50378 LOCATEH2,59,2: INPUT#2,urlgeld 
39388 CLS#2 

30398 LOCATE 39,14: PRINT USING "AH, Hank. 
#"jurlgeldj PRINT " DM" 


524989 LOCATERX2, 28,2:PRINT#2, "Weihnachtsg 
eld:" 
s2418 LOCATEH2,30,2: INPUT#2,weihngeld: IF 
weihngeld)@ THEN wtb=699 
50428 CLS#2 
52439 LOCATE 39,16:PRINT USING "HH, HN. 
#"jweihngelds :PRINT " DM" 
52448 LOCATE#2,29,2:PRINT#2, "VWL-Arbeitg 
eberanteil:" 
58459 LOCATEH2, 32,2: INPUTH2, vwl 
50449 CLS#2 
58478 LOCATE 39,18:PRINT USING "HH, HH. 
#"jvnlJ:PRINT " DM" 
503528 lohn=std%stdl 
59518 uestdi=stdl#tuestdz+190)/198 
523528 uelohn=zuestd%uestdi 
50539 kranklohnskrankstdistdi 
59548 urllohn=suristd%stdl 
59559 brutto=lohn+uelohn+kranklohn+urlio 
hn+urigeld+weihngeld+vwl 
50568 LOCATE SS,18:PRINT "BRUTTO: "1:P 
RINT USING "HH, HAN. ##"jbruttol: 
PRINT " DM" 
59578 LOCATE#2, 39,2: PRINT#2, "KORREKTUR 
<jt/n)” 
s25828 as=INKEYS:IF asl)"j" AND asl>"J" A 
ND as<>"n" AND as)"N" THEN GOTO 395898 
303599 CLS#2 
39688 IF au="j" OR as="J" THEN GOTO 3999 
8 
Sg61d CLS 
59628 CLSH1 
50638 CLS#2 
59648 RETURN 
68988 CLS 
68818 CLSH1 
68928 CLSH2 
62838 LOCATE#1,33,2:PRINT#1, "ABRECHNUNG 
GEHALT" 
62948 LOCATE 28,4:PRINT "Gehalt; " 
629858 LOCATE 28,6:PRINT"Ueberstunden: " 


' 68969 LOCATE 29,8:PRINT "Urlaubsgeld:" 


62278 LOCATE 22,18:PRINT "Zuschlaege:" 
62988 LOCATE 28,12:PRINT "Weihnachtsgeld 
an 

62098 LOCATE 298,14: PRINT "VWL-Arbeitgebe 
ranteil;" 

68188 LOCATEH2,30,2:PRINT#2, "Gehalt: " 
68118 LOCATER2,598,2: INPUTH2,gehalt 

68128 CLEHZ 

62138 LOCATE 39,4:PRINT USING "HH, HN. HH 
"igehaltj: PRINT " DM" 

62149 LOCATEH2, 39, 2:PRINT#2, "Ueberstunde 
n:" 

62158 LOCATE#2,32,2: INPUT#2, uegeld 

6B168 CLSH2 

62178 LOCATE 39,6:PRINT USING "HH, HHk. HH 
"uegeldj:PRINT " DM" 

68189 LOCATEN2, 38,2:PRINT#2, "Urlaubsgeld 


LISTING 


68198 LOCATEH2,59,2: INPUT#2,urlbgeld 
60200 CLS#2 

628218 LOCATE 38,8:PRINT USING "HA, HAN. 
"turlbgelds):PRINT " DM" 

60228 LOCATENZ2, 38,2: PRINT#2, "Zuschlaege: 
U} 


62238 LOCATE#2,359,2: INPUT#2, zuschl 

620248 CLS4H2 

60258 LOCATE 39, 18:PRINT USING "AR, HAN. H 
W"Izuschi]:PRINT *" DM" 

62268 LOCATEH2, 38,2: PRINT#2, "Weihnachtsg 
eld:" 

68278 LOCATEX2,38,2: INPUT#2,weihngeld: IF 
weihngeld)8 THEN wtb=629 

68288 CL8H2 

628298 LOCATE 39,12:PRINT USING "HR, HAHN. 
#"jwmeihngl) :PRINT * DM" 

62388 LOCATEN2, 23,2: PRINT#2, "VWL-Arbeitg 
eberanteil:" 

623129 LOCATENHZ2,39,2: INPUT#2,vlag 

60328 brutto=gehalt+uegeld+urlibgeld+zusc 
hl+weihngeld+vlag 

62338 LOCATE 58,14: PRINT USING "HH, Kun. 
“"Ivlags:PRINT ® DM" 

62348 brutto=gehalt+uegeld+uribgeld+zusc 
hl+weihng+vlag 

62358 LOCATE 28,18:PRINT "BRUTTO: " 

628368 LOCATE 49,18:PRINT USING "HAk,Häh. 
"H’Ibruttos: PRINT * DM® 

68378 CLEH2:LOCATEH2, 30,2: PRINTH2, "KORR 
EKTUR %j/n) 

62369 am=INKEYS: IF a6C>"j" AND asl>"J" A 
ND ast)"n" AND ast)"N" THEN G60T0 69388 
62398 IF at="j" OR as="J" THEN GOTO 4088 
4 

62488 CLE 

eB419 CLEHL 

62428 CLSH2 

62438 RETURN 

63229 ' Grenzwerte 
63818 kkbrutto=brutto: IF kkbrutto)4239 T 
HEN kkbrutto=4958 

65828 rvbrutto=sbrutto: IF rvbrutto?3498 T 
HEN rvbrutto=3498 

65238 RETURN 


1 BRRRRRRRRRRRRHHERRRBHHREHHHHRHHHHFN 
2 '%#%# Lohnabrechnung fuer Aushilfen *%* 
’4% von + 
’% K.Bartran ” 
’'% fuer ” 
’'% Schneider aktiv ” 
'%% CPC 664/6128 ur 


CLEAR:MODE 2 

GOSUB 39899 

BORDER 3 

INK 2,26 

INK 1,8 

INK 2,2 

PEN I 

PEN#1,8 

PEN#2, 8 

188 PAPER 8 

118 PAPERHI,I 

128 PAPERH2,1 

13@ WINDOW 1,89,4,22 

199 WINDOW#1,1,88,1,3 

1580 WINDOWN2,1,88,23,23 

168 CLS 

179 CLSH1 

189 CLSH2 

288 LOCATEN1,22,2 

2128 PRINT#L, "LOHNABRECHNUNG - PAUSCHALE 
LOHNSTEUER" 

228 LOCATE 38,3 

238 PRINTUEBERS LICH T" 
248 LOCATE 39,4 

258 PRINT'----------unnnn nn " 
268 LOCATE 18,7 

278 PRINTTEINGABE :" 

289 LOCATE 39,8 

298 PRINT"Personalstammdaten" 
30889 LOCATE 39,18 

318 PRINT"Abrechnungsdaten" 
328 LOCATE 19,14 

338 PRINT'AUSGABE :" 

348 LOCATE 38,15 

359 PRINT"Bildschirm" 

3629 LOCATE 39,17 

378 PRINT"Drucker" 

388 LOCATEN2, 39,2 

378 PRINT#2, "weiter mit Tastendruck" 
420 au=INKEYS: IF a="" THEN GOTO 498 


LIITITITESLEET 


448 LOCATE#1,22,2 

aS3@ PRINTHLÄA’PERSONALSTAMMD 
ATEN" 

468 LOCATE 19,4 

478 PRINT"Arbeitgeber: " 

489 LOCATE 18,5 

498 PRINT"Straße:" 

3229 LOCATE 19,6 

s18 PRINT"PLZ Ort:" 


LISTING 


328 LOCATE 18,8 

330 PRINT"Arbeitnehner: " 

549 LOCATE 18,9 

339 PRINT"Straße: " 

568 LOCATE 18,18 

378 PRINT"PLZ Ort: " 

388 LOCATE 19,12 

PRINT"Art der Tätigkeit: " 

LOCATE 18,13 

PRINT"Stundenlohn:" 

LOCATE 49,4 

PRINT ags 

LOCATE 48,5 

PRINT agstrasse® 

LOCATE 48,6 

PRINT agort# 

LOCATE 48,8 

698 PRINT ans 

788 LOCATE 49,9 

718 PRINT anstrasse® 

728 LOCATE 49,18 

738 PRINT anort# 

a8 LOCATE 49,12 

738 PRINT tatkeits 

768 LOCATE 49,13 

778 IF stdlohn‘)8 THEN PRINT USING"HR. HH 
"ıstdlohnj 

788 IF stdlohn‘?>8 THEN PRINT " DM" 

7978 IF an®(>"" THEN GOTO 848 

809 GOSUB 18809 

849 LOCATE 18,2 

839 IF pnr6‘>"" THEN PRINT"Personal-Numn 
er:" 

858 
878 
889 
898 
998 
919 
929 
938 
949 
938 


LOCATE 48,2 

IF pnrs(>"" THEN PRINT pnrs 
LOCATE 18,15 

PRINT "Lohnsteuer: " 

LOCATE 48,13 

PRINT’1I® % des Arbeitslohns" 
LOCATE 19,16 
PRINT"Kirchensteuer: " 

.‚LOCATE 49,16 

PRINT" 7 % der Lohnsteuer" 

969 LOCATEH2,329,2 

978 PRINT#2, "weiter mit Tastendruck" 
989 as=INKEYS: IF as="" THEN GOTO 988 
998 CLEH2 

1299 CLS 

1918 CLEH1 

1828 LOCATE#1,25,2 

1838 PRINTHL,ÄA'ABRECHNUNGSDA 
TEN" 

1848 LOCATE 8,3 

198528 PRINT"MONAT: " 

1968 LOCATE 3,6 

1878 PRINT"1. Woche: " 

1988 LOCATE 3,8 

1898 PRINT"2. Woche: " 

1198 LOCATE 3,18 

1118 PRINT"3. Woche: " 
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LOCATE 3,12 

PRINT"4. Woche: 

LOCATE 3,14 

PRINT"S. Woche: " 

LOCATE#2, 29,2 

PRINT#2, "Monat: (in Buchstaben)" 

LOCATE#2, 59,2 

INPUT#2,monat$s 

CLSH2: IF monat$="" THEN GOTO 1169 

LOCATE#2, 29,2 

PRINT#2, "Monat: 

LOCATE#2, 59,2 

1248 INPUT#2,monat:IF monat)i2 THEN CLS# 

2:G0T0 1218 

1258 CLS#2 

1268 IF monat=8 THEN GOTO 1219 

1278 LOCATE 39,3 

1288 PRINT monat#} 

1298 CLS#2:LOCATER2, 19,2 

1398 PRINT#2,"1. Woche 

"S:1INPUT#2, atg(1) 

1318 LOCATEX2,39,2 

1328 PRINT#2, "bis Tag: "J:INPUTR2,etg(i 

) 

1339 IF atgti)=9 OR etg(1)=8 THEN GOTO I 

299 

1349 IF atgti))>etgiL) THEN GOTO 1298 

1359 IF etg(1)-atgi1)>7 THEN GOTO 1298 

1368 LOCATE 28,6 

1378 PRINT, USING" ##"Jatg(L)J PRINT". "mo 

nat5:PRINT". - "5:PRINT,USING"#R"I 
etgt1)5:PRINT"."jmonat;"." 

1389 CLS#2:LOCATEH2, 19,2 

1399 PRINT#2, "2. Woche 

"S:1INPUTH2,atg(2) 

1498 LOCATEX2, 39,2 

1418 PRINT#2, "bis Tag: "j:INPUT#2,etg(2 

) 

1428 IF atg(2)=8 OR etg(2)=8 THEN G0TO I 

389 

1439 IF atg(2) )etg(2) THEN GOTO 1389 

1448 IF etg(2)-atg(2))7 THEN GOTO 1388 

1458 LOCATE 28,8 

1468 PRINT, USING"##"jatg(2) 5: PRINT". "Imo 

nat5:PRINT". - "J:PRINT,USING"#H"5 
etg(2)5:PRINT"."$monatj"." 

1479 CLS#2:LOCATEH2, 19,2 

1488 PRINT#2,"3. Woche 

"S:INPUT#2, atg(3) 

1499 LOCATE#2, 39,2 

1599 PRINT#2, "bis Tag: "J:INPUTR2,etg(3 

) 

1518 IF atg(3)=9 OR etg(3)=8 THEN GOTO 1 

479 

1528 IF atg(3))etg(3) THEN GOTO 1478 

1538 IF etg(3)-atg(3))7 THEN GOTO 1479 

1549 LOCATE 29,18 

1559 PRINT, USING" ##"Jatg(3) 5): PRINT". "I mo 

natj:PRINT®". - "S:PRINT,USING"HR"} 

etg(3)5:PRINT"."$monat;j"." 


(in Zahlen)" 


von Tag: 


von Tag: 


von Tag: 


LISTING 


1568 CLSH2:LOCATER2,19,2 

1579 PRINT#2,"4. Woche 

"3: INPUTR2,atg(4) 

1589 LOCATE#2,39,2 

1598 PRINTH2, "bis Tag: "I: INPUTN2,et9(4 

) 

1698 IF atg(4)=8 OR etg(4)=8 THEN GOTO 1 

=1-).] 

1618 IF atg(4) )etg(4) THEN GOTO 1569 

1628 IF etg(4)-atgi4))7 THEN GOTO 1568 

1639 LOCATE 29,12 

1648 PRINT ,USING"##"jatgt4) 5 :PRINT"."Imo 

natj:PRINT". - "J:PRINT,USING"HR"I etgi 

4) 1:PRINT". "Imonatj "." 

1658 CLSRH2:LOCATEH2, 19,2 

1668 PRINT#2,"5. Woche 

"7: INPUT#2, atg(3) 

1678 LOCATE#2,38,2 

1689 PRINTH2, "bis Tag: "I: INPUTH2,etg(S5 

) 

1698 IF atg(S) )etg(S) THEN GOTO 1658 

1788 IF etg(S5)-atg(5))7 THEN GOTO 1659 

1718 LOCATE 29,14 

1728 PRINT,USING"##"Jatg(S) PRINT". "mo 

natıj:PRINT". - "J:PRINT,USING"’HH"I 
etg(S5)J:PRINT"."Imonatj"." 

etg(1))31 THEN GOTO 1298 

atg(2)<etgii) THEN GOTO 1298 

etg(2) >31 THEN GOTO 1299 

atg(3)<etg(2) THEN GOTO 1298 

etg(3) >31 THEN GOTO 1298 

atg(4)<etg(3) THEN GOTO 1298 

1768 etg(4))>31 THEN GOTO 1298 

1765 atg(5))9 AND atg(S)<etg(4) THEN 

G0TO 1298 

1778 IF etg(5) >31 THEN GOTO 1298 

1788 CLS#2 

1798 LOCATEN2, 18,2 

1888 PRINT#2, "1. Woche 

1: INPUTH2, std(1) 

1818 CLS42:IF stdt1))28 THEN GOTO 1798 

1828 LOCATE 39,6 

1838 PRINT, USING"HH"Ietd(1) 5: PRINT" Stun 

den’ 

1848 LOCATEN2, 19,2 

1859 PRINTH2,"2. Woche 

1: INPUT#2, std (2) 

1868 CLSH2:IF std(2) >28 THEN GOTD 1849 

1878 LOCATE 359,8 

1888 PRINT,USING"HH"Istd(Z2) 5 :PRINT" Stun 

den" 

1899 LOCATEH2, 18,2 

1998 PRINT#2, "3. Woche 

1: INPUT#2, std (3) 

1918 CLERZ2:IF std(3))28 THEN GOTD 1899 

1928 LOCATE 39,18 

1938 PRINT, USING"HH"Istd(3)5:PRINT" Stun 

den" 

1948 LOCATEH2,19,2 

19589 PRINT#2, "4. Woche 


von Tag: 


von Tagı 


1739 
1735 
1748 
1745 
1758 
1755 


Stunden ! " 


Stunden !: " 


Stunden ! " 


Stunden ; " 


134 


3: INPUT#H2, std (4) 

1989 CLSH2:IF std(4) >28 THEN GOTD 1949 
1978 LOCATE 58,12 

1988 PRINT,USING"HH"Istd(4) 5 :PRINT" Stun 
den" 

1998 LOCATEH2,19,2 
2888 PRINT#2, "5. Woche 
J: INPUTH2, std (5) 

2818 CLER2:IF std(S) >28 THEN GOTO 1999 
2828 LOCATE 59,14 

2838 PRINT ,USING"##"Istd(5) 5 :PRINT" Stun 
den" 

2042 sumstd=std(il)+std(2) +std(3) +std(4)+ 
std (5) 

22858 LOCATE 48,17 

PRINT "SUMME: " 

LOCATE 39,17 


Stunden ; " 


2889 PRINT ,USING"##"jsumstdj :PRINT" Stun 
den’ 

2098 CLER2 

2198 LOCATEN2, 39,2 

2118 PRINT#2, "KORREKTUR € j /n > ?" 
2128 as=INKEYS: IF a8C)"j" AND auc)>"J" AN 


D asC)"n" AND as<)"N" THEN GOTO 2128 

2139 IF a6="j" OR a6="J" THEN CLS#2:60T0 
1989 

2209 CLS 

2219 CLSHI 

2229 CLS#2 

2239 LOCATEH1,22,2 

2248 PRINT#1, "LOHNABRECHNUNG - PAUSCHALE 
LOHNSTEUER" 

2258 LOCATE 39,7 


2268 PRINTAUSGABE AUF“ 
2278 LOCATE 39,9 
2288 PRINT"BILDSCHIRM <B>" 
2298 LOCATE 39,11 
2308 PRINT"DRUCKER £D>" 


2319 as=INKEYS: IF awl)"b" AND auc)"B" AN 
D asc>"d" AND asc)>"D" THEN GOTO 2318 
2328 IF as="b" OR as="B" THEN dr=9 

2330 IF as="d" OR as="D" THEN dr=8 

CLS 

PRINT#dr 
PRINT#dr,'LOHNABRECHNUN 
(c) (Teilzeitbeschäftigung) " 

IF dr=8 THEN PRINT#Hdr,"------------ 
m —manmanuannnnnn ":PRINT#dr 

PRINT#dr 

PRINT#dr , TAB(S) Jan® 
PRINT#dr , TAB(S) Jjanstrasse® 
PRINT#dr , TAB(S) Janort® 

PRINT#dr 

3888 PRINT#dr, "bestätigt hiermit, nachst 
ehenden Arbeitslohn ohne Vorlage einer" 


32898 PRINT#dr, "Lohnsteuerkarte für eine 
Teilzeitbeschäftigung i.5. des 49a EStG" 


3895 PRINT#dr, "von :" 


LISTING 


s198 PRINT#dr 

3118 PRINT#dr ,TAB(S) jag$ 

3128 PRINT#dr, TAB(S) jagstrasses 

3139 PRINT#dr, TAB(5) Jagorts$ 

3148 PRINT#dr 

31358 PRINT#dr, "erhalten zu haben: ":IF dr 
=8 THEN PRINT#dr 

3168 PRINT#dr:PRINT#dr, "Abrechnungszeitr 
aum: "imonat$: 


3178 PRINT#dr, "Art der Teilzeitbeschäfti 

gung: "itatkeits: 

3188 IF dr=9 THEN LOCATE#2, 39, 2: PRINTH2, 

"weiter mit Tastendruck” 

3198 IF dr=8 THEN a®s=INKEYS: IF as="" THE 

N GOTO 3198 

32908 CLS:PRINT#dr:PRINT#Kdr 

PRINT#dr , TAB(12) 3} 

PRINT#dr,, "Dauer: "j 

PRINT#dr , TAB(39) 5 

PRINT#dr, "Stunden: "j 

PRINT#dr , TAB(43) 5 

PRINT#dr , "Stundenlohn: "} 

PRINT#dr , TAB(69) } 

PRINT#dr , "Betrag: " 

PRINT#dr :PRINT#dr 

PRINT#dr , TAB(S) 35 . 

PRINT#dr , USING"##"Jatgt1)5 :PRINTHdr 

s„"."jmonats:PRINT#Hdr,". - "JSPRINTHÄr, 
USING"##"Jetgti) 5 :PRINT#dr,"."jmona 

t3","3 

3328 PRINT#dr,TAB(29) 3 

3339 PRINT#dr,USING’HH.HH"IStdAtL)E: PRINT 

#dr," Std.” 

3348 PRINT#dr, TAB(45) 35 

3358 PRINT#dr ,USING"##.##"jstdlohns :PRIN 

T#dr," DM’ 

3368 PRINT#dr, TAB(S9) 5 

3378 betr(l)=std(i)%stdlohn 

3388 PRINT#dr ,USING’HHH.HH"Ibetr (1) J:PRI 

NT#dr," DM" 

3398 PRINT#dr 

3498 PRINT#dr, TAB(S5) } 

3418 PRINT#dr ,USING"#H#"Jatg(2) 5: PRINTHdr 

„"."jmonats:PRINTAdr,". - "5:PRINTHdr, 
USING" ##"jetg(2) 5 :PRINT#Adr,*."Imona 

ts "." 

3428 PRINT#dr,TAB(29)3 

3438 PRINT#dr , USING"HH.HH"’IStd(Z2) 5: PRINT 

#dr," Std."j 

3448 PRINT#dr,TAB(45) j 

3459 PRINT#dr ,USING"##. #4" jstdlohns :PRIN 

Tk#dr," DM’ 

3468 PRINT#dr, TAB(59) 5 

3478 betr (2)=std(2)%*stdlohn 

34889 PRINT#dr ,USING"HHH.#H"jbetr (2) 5:PRI 

NT#dr," DM" 

3499 PRINT#dr 

3382 PRINT#dr,TAB(S) 

33518 PRINT#dr,USING"’#H#"Jatg(3) J :PRINTHÄdr 
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„"."jmonati :PRINTAdr,". = "F:PRINTHdr, 
USING" #H"Jetg(3) 5 :PRINTHdr,". "Imona 

tg". 

3528 PRINT#dr ,TAB(29) 3 

3539 PRINT#dr ,USING’HH.H#"5std(3) 55 PRINT 

*dr," Std.” 

3549 PRINT#dr, TAB(45) | 

3559 PRINT#dr ,USING"#HH.##"jstdlohns :PRIN 

T#dr," DM’ 

3569 PRINT#dr, TAB(S9) 5 

3578 betr (3)=std (3)%stdlohn 

3588 PRINT#dr ,USING"HAR. ##"jbetr (3) 5: PRI 

NT#dr," DM" 

3599 PRINT#dr 

3688 PRINT#dr,TAB(S)} 

3619 PRINT#dr ,USING"’RH"Jatg(4) J : PRINTHÄdr 

„"."jmonatj:PRINTHdr,". - "$:SPRINTHdr, 
USING" ##"jetg(4) 5: PRINT#dr,"."jmona 

tg." 

3628 PRINT#dr, TAB(29) 5 

3638 PRINT#dr ,USING"HH.HH"Istd(l4) 5: PRINT 

Kdr," Std." 

3699 PRINT#dr , TAB(45) } 

3659 PRINT#dr , USING"’HH. HH" Istdlohns :PRIN 

T#dr," DM’I 

3668 PRINT#dr , TAB(59) j 

3678 betr(4)=std(4)%stdlohn 

3688 PRINT#dr , USING" HHH.HH"Ibetr (4): PRI 

NT#dr," DM" 

3698 PRINT#dr:IF atg(5)=9 THEN GOTO 3899 

3788 PRINT#dr,TAB(S) 

37198 PRINT#dr ,USING"##"jatg(5) 5: PRINTHÄdr 

„"."jmonatsj:PRINTHdr,". - "J:PRINTHdr, 
USING’#H"Jetg(S) 5: PRINTHdr,". "jmona 

gs’. 

3728 PRINT#dr, TAB(29) 5 

3738 PRINT#dr ,USING’HR.AN"IStd (5) 5 SPRINT 

Kdr," Std." 

3748 PRINT#dr , TAB(45) 

3758 PRINT#dr ,USING"HH. HH" Istdlohn] :PRIN 

T#dr," DM’j 

3768 PRINT#dr, TAB(S9) 5 

3778 betr(5)=std(5)%stdlohn 

3788 PRINT#dr ,USING’HHH.HH"Ibetr (5) J :PRI 

NT#dr," DM" 

3798 PRINT#dr 

3888 PRINT#dr, TAB(29) 3} 

3818 PRINTHdr, "---------- "y 

3828 PRINT#dr,TAB(S59) 35 

3838 PRINT#dr, "--------- ’ 

3849 PRINT#dr 

3858 PRINT#dr, TAB(29) 35 

3868 PRINT#dr ,USING"HH. HH" I sumstdj: PRINT 

#dr," Std.”j 

3878 PRINT#dr,TAB(S9) 5 

3889 sumbetr=betr (1) +betr (2) +betr (3) +bet 

r(4)+betr (5) 

3898 PRINT#dr , USING"’HHH. HN" I sumbetr):PRI 

NT#dr," DM" 


3989 IF dr=@ THEN LOCATE#2, 39, 2:PRINTH2, » 


LISTING | 


"weiter mit Tastendruck" 
3918 IF dr=8 THEN as=INKEYS: IF as="" THE 
N G0T0 3918 
3928 Ist=sumbetr#2.1 
3939 kiut=1st%9.207 
3949 CLS:PRINT#dr:PRINTHdr 
3958 PRINT#dr 
3968 PRINT#dr, "Die Lohnsteuer/Kirchenste 
ver wird mit dem Pauschalsteuersatz von" 
3988 PRINT#dr, "18/7 v.H. vom Arbeitgeber 
Ubernommen." 
48082 PRINT#dr 
4818 PRINT#dr, "Pauschale Lohnsteuer: 

U} 


' 
#228 PRINTHdr USING "HAHN. HH"I ist 
4249 PRINT#dr, "Pauschale Kirchensteuer: 
“n 


) 
4058 PRINTHdr,USING "ANH.AN"Ikist 
4068 PRINT#dr:PRINT#dr:PRINT#dr:PRINTHAr 
‚ TAB(S) } "Datum: ":PRINTAdr:PRINTHAr: 
PRINT#dr:PRINT#dr: PRINT#dr 
4078 PRINT#dr, TAB(S)} 
4888 PRINTHdr, "=------ nn 
u 
) 
42978 PRINTAdr, TAB(49) 1 
4198 PRINTHdr , "=== nn nun 
U} 


A118 PRINTAdr,TAB(S) } 
4128 PRINT#Hdr," 

“u 

) 
4138 PRINT#dr,TAB(49) | 
4149 PRINTHdr," 
“u 


Arbeitgeber 


Arbeitnehmer 


4298 IF dr=8 THEN LOCATEX2, 39,2: PRINTH2, 
"weiter mit Tastendruck" 
4218 IF dr=9 THEN a#=INKEYS: IF as="" THE 
N GOTO 4218 

4228 G0T0 2298 

10888 CLEH2 

19818 LOCATEN2, 18,2 

18828 PRINT#2, "Arbeitgeber: *® 
1080838 LOCATEN2, 42,2 

19949 INPUTH2, 29% 

19858 CLS#2 

19889 LOCATEX2,18,2 

190978 PRINT#2, "Straße: " 

18988 LOCATEN2,48,2 

19998 INPUT#2, agstrasse® 
18188 CLS#2 

18118 LOCATEN2, 18,2 

18128 PRINT#2, "PLZ Ort: "® 
18138 LOCATEN2, 48,2 

18148 INPUT#2, agort$ 

18139 CLS#2 

181689 LOCATE#2, 18,2 

18178 PRINT#2, "Arbeitnehmer: " 
18188 LOCATE#2,48,2 

18198 INPUTH2, an® 

182908 CLS#2 

19218 LOCATEX2, 18,2 
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18228 PRINT#2, "Straße: ”" 

19239 LOCATE#2, 48,2 

18248 INPUT#2, anstrasses 

182358 CLEH2 

19268 LOCATE#2,19,2 

18278 PRINT#2, "PLZ Ort: " 

18269 LOCATEH2,49,2 

19299 INPUT#2, anort#s 

18398 CLEH2 

18318 LOCATE#2, 18,2 

18328 PRINT#2, "Art der Tätigkeit: " 

18338 LOCATEH2,48,2 

18348 INPUT#2,tatkeit® 

19338 CLEH2 

18388 LOCATEH2,18,2 

18378 PRINT#2, "Stundenlohn: " 

18388 LOCATEH2,49,2 

19398 INPUT#2,stdlohn: IF stdlohn>i2 THEN 
GOTO 198338 

12498 CLER2 

18418 LOCATE#2,28,2 

198428 PRINT#2, "KORREKTUR < j /n > ?" 
194398 a&=INKEYS: IF a8%>"j" AND aut>"J" A 
ND asC>"n" AND ast>"N" THEN GOTO 19438 
18448 IF a6="j" OR as="J" THEN GOTO 1988 
8 

18458 RETURN 

32288 ' UMLAUTE 

Sag19 SYMBOL AFTER 9% 

30828 SYMBOL 96, KX0, LXd,KEXQ,UXD uXQ Xi 
B11Q,LXL1IBL1OQ, LX1121108 

30838 SYMBOL 126,&X1110099,KX1181109,KX1l 
BL12D,LXLIDLIOQ UXILIONLID KXLLIOLID UK 
21120 ,LX1120809 

32248 KEY DEF 26,1,126,96 

30858 SYMBOL F1,KX1811919,KXK111109,uX118 
DLID,LXLIOBLIG, KXiILILIQ, RX 1OOLID uXL1D 
BL12,LXD 

30868 SYMBOL 123, LX1921090,uX2,KX1L11008 
„uX1199,KXL111109,KX11991109,KX1119110, 8 
x8 

328878 KEY DEF 17,1,123,91 

38888 SYMBOL 92,&X1Q2111218,LX1181120,UXi 
1292118, KX11099110,KX11099110,LX1121108, 
KX111090,uXQ 

30898 SYMBOL 124,LX199109,&X2,KX111109,% 
K1190119,KXK11001190,KX1100119,uX111108, 8X 
8 

38128 KEY DEF 19,1,124,92 

Sa1L1d SYMBOL 93,LX1109119,KXQ,KXL1DQL1O, 
KXIIDOLIO ,KXLIODLID KXLIODLIQ, KXLI110D, 
x 

38128 SYMBOL 125,.X1090100,Lx2,uLX1100110 
‚KXiLODLID, KXLIOALID KXLIORLLD XIII 
‚x 

328138 KEY DEF 22,1,125,93 

38148 RETURN 


TEST 


BALLER-BALLER 


Das Stichwort Arcade Game scheint auf den Spielekäufer einen besonderen 
Reiz auszuüben. Jedenfalls greifen die Marktstrategen verschiedener Software- 
verlage immer wieder zu diesem Wort, als solle damit schon Qualität bewie- 
sen werden. Wir haben mit Breakthru eines dieser Programme herausgegriffen und 
unter die Lupe genommen. Nicht immer sind Aufmachung und Spielwert eines 
Programmes gleichzusetzen. In negativer Weise bestätigt dies unser Test 
dieses ‚„‚actiongeladenen Arcade-Spiels, bei dem es kein Zurück gibt‘ (Zitat). 


Zuerst die kurze und (all- 
zu) einfache Geschichte 
des Spieles: Ihrem Land 
wurde ein PK 430, einer 
der modernsten Fighter 
der Welt, gestohlen. 

Ihre Aufgabe ist es, die- 
se Maschine wiederzuhr 
schaffen. Ganz alleine 
dürfen Sie mit einem be- 
waffneten Auto durch 
allerhand Sperren fah- 
ren, Feindesleute er- 
schießen, Gebirge, Prä- 
rien und zerstörte Brük- 
ken überwinden, um 
schließlich in einer Stadt 
den Flugplatz zu errei- 
chen. Da Sie völlig alleine 
sind, hat natürlich die 
gegnerische Armee ihre 
Kräfte auf Siekonzen- 
trieren Können. Ihnen 
bleibt nichts anderes als 
ein waffenstarrendes 
Auto. 

Nach dem Einladen und 
Start von „Breakthru“ 
wird man sich ein leich- 
tes Lächeln nicht ver- 
kneifen können. Grund 


des nicht beabsichtigten 
Humors ist das merk wür- 
dige Vehikel, mit dem 
der Spieler ausgestattet 
ist. Das Design stammt 
von einem schwer verun- 
glückten Sportwagen und 
vom gleichen Unfall blieb 
wohl auch der Achsen- 
und Stoßdämpferschaden 
zurück. Jedenfalls hoppelt 
das abenteuerliche Ge- 
fährt derartig kräftig über 
die an sich glatte Piste, 
daß ein frühes Ende auch 
ohne Feindesbeschuß 

zu erwarten ist. 

Wer sich einmal mit sei- 
ner Wackelkiste auf den 
gefährlichen Weg zur PK 
430 gemacht hat, der wird 
schnell enttäuscht sein. 
Die Grafik dieses Spieles 
versetzt den Betrachter 
um Jahre zurück. Fin 
grob programmıertes Ge- 
birgsmassiv, die im Ver- 
gleich zum Fahrzeug gi- 
gantischen Granaten und 
die mit unfreiwilligem 
Humor programmierten 


Gegner enttäuschen all- 
zusehr. Stellen Sie sich 
Zwerge vor, die aus Ge- 
wehren fußballgroße 
Granaten (oder was im- 
mer das sein soll) verschie- 
fen. Hat man denn nicht 
einmal die Größenverhält- 
nisse richtig einschätzen 
können? Auch den Lieb- 
haber solcher Schieß- 
spiele wird der Ärger 
überkommen, wenn er 
feststellt, was diesem 
Programm an Steue- 
rungsmechanismen mitge- 
geben ist. Wir wollen gar 
nicht davon sprechen, 
dat die im „Handzettel“ 
aufgeführten Tasten kei- 
nerlei Bedeutung haben. 
Es gelang uns zum Bei- 
spiel nicht, den Wagen 
springen zu lassen, wo- 
zu er laut Anweisung in 
der Lage ist. Möglicher- 
weise handelt es sich 
aber um einen Druckfeh- 
ler und der Dolmetscher 
meinte, ,‚Schießen“. 
Hierzu ist das Auto näm- 
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lich ohne Pause in der 
Lage. Zum Lenken und 
Schießen ist einzig und 
allein der Joystick zu 
gebrauchen und hier wird 
mancher Reinfall erlebt. 
Wundern Sie sich nicht, 
wenn das Spiel beendet 
wird, obwohl Sie allem 
Augenschein nicht ge- 
troffen wurden. Auch die 
Berührung mit dem Fels- 
massiv wird mal zum 
Ende führen, mal kann 
es Ihnen gelingen, durch 
die Berge hindurchzufah- 
ren. Die Kollisionsab- 
frage im Programm 
scheint mit dem Zufalls- 
generator zusammenzu- 
arbeiten und liefert die 
unwahrscheinlichsten 
Ergebnisse. 

Bleibt noch der Sound 
zu erwähnen. Während 
Sie stur von links nach 
rechts fahren, wird Ihnen 
keinerlei Tonunterle- 
gung geboten. Um ehr- 
lich zu sein, mir fiele da- 
zu auch kein musikali- 
sches Thenia ein. Aber 
natürlich muß beim 
Schießen etwas zu hö- 
ren sein, sonst macht es 
ja keinen Spai3 und 

wenn das Auto getroffen 
ist, kracht es dann auch 
ordentlich im Lautspre- 
cher des CPC, damit alle 
Nachbarn wissen, daß un- 
ser Held wieder mal ge- 
scheitert ist. 


FAZIT 


Wir würden auf einzelne 
Fehler des Programmes 
sicherlich mehr eingehen, 
wenn es uns lohnenswert 
erschiene. Mit ‚„Break- 
thru“ hat sich der, an- 
sonsten mit besseren Pro- 
dukten aufwartende, 
Softwareverlag Rushware 
einen Flop geleistet. 

Was uns ein wenig verär- 
gert hat, ist die reißeri- 
sche Aufmachung des Spie- 
les, die im krassen Gegen- 
satz zum Spielwert steht. 
Bei diesem Spiel gibt es 
sicherlich ‚„‚kein Zurück“. 
Es bleibt aber der Ver- 
dacht, daß damit das Um- 
tauschrecht gemeint ist. 
Unsere Meinung lautet 
deshalb: „‚Nicht empfeh- 
lenswert“. 


BUCHER- 


KISTE 
SEN, 


FEAR 


Für die CPC-Modelle 

von Schneider werden 
mittlerweile ganze Biblio- 
theken verschiedener 
Bücher angeboten. 

Wir suchen für Sie 
interessante Lektüre 

aus und bewerten diese 


VE E 
FR en 


EINFÜHRUNG IN DIE 
PROGRAMMIERLOGIK 


Es dürfte schwer fallen, 
die Zielgruppe des Buches 
zu bestimmen, auch wenn 
dem ein paar Sätze in der 
Einleitung gewidmet sind. 
Programmierlogik ist 
sicherlich eine feine Sa- 
che, doch ist sie bei kür- 
zeren Programmen mei- 
nes Erachtens nicht not- 
wendig und wird bei län- 
geren Programmen ohne- 
hin durch die Aufgaben- 
stellung erzwungen. Je- 
denfalls dürfte keine 
funktionierende Software 
existieren, die nicht mit 
den notwendigen Vorüber- 
legungen, sprich Flufs- 
diarramm und Variablen- 
lısic, erstellt wurde. Und 
ob man dieses Thema 
überhaupt als ‚‚Trocken- 
kurs‘‘, ohne Bezug zu ei- 
ner Programmiersprache, 
erarbeiten kann, erscheint 
mir ohnehin fraglich. 
Aber Andreas Harschneck, 
der Autor, hatte auch 
mehr im Sinn als seine 
Leser in strukturierter 
Programmierung einzuwei- 
sen. Es sing ihm unter an- 
derem darum, zu Stan- 
dardaufgaben Patentre- 
zepte zu liefern. Wohlge- 
merkt, immer in Hinblick 
auf den Programmablauf. 
Was davon in ein Listing 
übernommen werden 
kann, bleibt die Sorge des 


SERVICE 


Lesers. Er wird sich des- 
wegen auch mit den Ei- 
genheiten der benutzten 
Programmiersprache aus- 
einandersetzen müssen. 
In der Einleitung wird 
ausdrücklich gewünscht, 
dats der Leser über Grund- 
kenntnisse der EDV ver- 
füge. Ich möchte dem 
hinzufügen: Es sollten 
gute Grundkenntnisse 
sein. Der Befehlserläu- 
terung sind nur knappe 
35 Seiten gewidmet. Dies 
reicht gerade aus, um Er- 
lerntes zu wiederholen. 
Damit erübrigt sich auch 
die Frage, ob dieses Buch 
für Anfänger geeignet sei. 
Schlicht und einfach 
Nein, obwohl dies in der 
Einleitung behauptet 
wird. Aber „Einführung 
in die Programmierlogik“ 
ist trotzdem ein Lehr- 
buch. In diesem Genre 
der Computerliteratur 
hat es sich durchgesetzt, 


nach jedem Themenab- 
schnitt dem Leser Fragen 
zu stellen, auf dafs dieser 
seinen Wissenstand stän- 
dig kontrollieren kann. 
Daran hält sich auch der 
Autor und läfit in ver- 
nünftigen Abständen 
Übungsprobleme lösen. 
Das Buch im Detail: 

Um die Grundlagenerklä- 
rung kommt auch 
Andreas Harschneck 
nicht herum. Da er eini- 
ges Wissen jedoch voraus- 
setzt, darf es nicht wun- 
dern, dafs die Beschrei- 
bung einzelner Befehls- 
typen sehr komprimiert 
ausfällt. Relativ schnell 
ist man im Abschnitt 2, 
der Datendarstellung, an- 
gelangt. Nach seinem 
Blitzstart wird das Buch 
hier auch endlich lesba- 
rer und erläuternder. 
Auch einem Laien wird 
genügend Platz geopfert, 
um ihm die computerspe- 
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zifischen Alphabete be- 
greiflich zu machen und 
um den Umgang mit ver- 
schiedenen Zahlensyste- 
men zu erklären. Nach 
einem kurzen Abrif3 der 
Speichermethoden und 
den obligatorischen Übun- 
gen landet man auf Seite 
63 beim eigentlichen 
Thema des Buches, der 
Programmierlogik. 


FRAGE NACH DEM 
SINN DES BUCHES 


Wie zu erwarten, geht es 
um die Darstellungsmit- 
tel, etwa der Programm- 
ablaufplan und die Struk- 
togramme. Derlei Pläne 
zur Programmierung sind 
ausführlich beschrieben. 
Hierbei bezieht sich der 
Autor — wie auch sonst 
konsequent durch sämt- 
liche Kapitel — auf das 
Fallbeispiel einer Mate- 
rial- und Dispositions- 
datei. Sicherlich ist es 
angenehm für den Leser, 
sämtliche Themen an- 
hand einer Problemkon- 
struktion durchzuarbei- 
ten, doch erfüllt das 
Buch damit nicht seinen 
Anspruch auf Patentre- 
zepte. Es sei denn, nur 
die Anwender einer Da- 
tei suchen nach dem 
„Stein der Weisen‘“. 
Unter der Überschrift 
Programmdesign finden 
sich einige „alte Hüte‘ 
für alle, die schon einmal 
an einem größeren Pro- 
gramm gearbeitet haben. 
Da ist die Rede vom Top- 
Down Design (und Pro- 
gramm), von der modula- 
ren Programmiertechnik 
und von der Notwendig- 
keit, parallel zum Pro- 
gramm die Dokumenta- 
tion zu erstellen. Der Be- 
griff „‚alte Hüte“ ist also 
nicht deshalb gewählt, 
weil sie überholt sind, 
sondern weil sie sich von 
selbst erlernen, besser 
gesagt erzwingen. Sicher- 
lich ist die Selbsterfah- 
rung ein fehlerträchtiger, 
dornenreicher Weg, 
doch halte ich ‚„‚Lernen 
aus Fehlern‘ für besser 
als „Pauken aus Bü- 
chern‘“. 
Bei den letzten Kapiteln 


schießt der Autor weit 
über das Ziel hinaus. 

Mit der Erläuterung von 
Mehrdateienprogrammen 
und Gruppenverarbeitung 
gibt es zu viel Wissen zu 
verarbeiten. Schließlich 
bedarf ja das bis dahin 
Erlernte der Übung und 
der Umsetzung in Pro- 
gramme, bevor man die 
„nächsthöhere‘‘ Stufe er- 
klimmt. Spätestens nun 
stellt sich dem Kritiker 
wieder die Frage nach 
dem Sinn des Buches, der 
ja den Kaufanreiz aus- 
macht. Wie schon mehr- 
fach erwähnt, ist es nicht 
für den Anfänger geeignet. 
Jener tut besser daran 
Listings abzutippen, diese 


FÜR WEN 
EIGENTLICH? 


zu verändern und seine Ver- 


besserungen dann zu kor- 
rigieren. Irgendwann wird 
ihm schon bewufßit wer- 
den, daß er vor Erstellung 
eines eigenen Program- 
mes ein Fluixliagramm 
und eine parallele Doku- 
mentation braucht. Erfah- 
rene Programmierer sind 
schon längst so weit. 
Ihnen wird das Buch außer 
ein paar zwanghaft einge- 
deutschten Ausdrücken 
nichts zu bieten haben. 
Bleiben nur Systemplaner 
und EDV-Koordinatoren. 
Genau jene sollten jedoch 
in ihrer Ausbildung reich- 
lich Kontakt mit dem 
Lehrstoff gehabt haben. 
Vielleicht — und hier 
möchte ich den Autor zi- 
tieren — ist das Buch für 
all jene geeignet die nach 
dem Motto lesen: „Alles 
was ich schon immer 
über Programmierlogik 
wußte (und nur zu be- 
quem war aufzuschrei- 
ben)“. Genau jenen sei 
es dann empfohlen. 

(GS) 


DAS GROSSE 
CPC-ARBEITSBUCH 


Dieses Buch setzt eigent- 
lich nur das Wissen vor- 
aus, das im Schneider- 
Handbuch vermittelt wird. 
Es führt langsam, aber 
kontinuierlich in die inne- 
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Franzis’ 


ren „Geheimnisse“ der 
CPCs hinein. Es ist lo- 
gisch aufgebaut und, 
wenn man Kapitel für 
Kapitel, Abschnitt für 
Abschnitt, durcharbeitet, 
durchaus verständlich 
geschrieben. 

Neben den allgemeinen 
Grundlagen, die, wenn 
man mit dem Buch ernst- 
haft arbeiten und lernen 
will, nicht überschlagen 
werden sollten, werden 
alle die Punkte angespro- 
chen, die ein User, der 
über die ‚‚Baller“-Phase 
hinaus will, einfach wis- 
sen muß. 

In allen Kapiteln wird 
man schrittweise an die 
Materie herangeführt und 
durch Listings, die wirk- 
lich laufen (wenn man 
sie richtig abtippt!), wird 
das gerade neu erworbe- 
ne Wissen durch Übungen 
vertieft. Übrigens: Ne- 
ben den Listings in Basic 
zur Erzeugung des Ma- 
schinenprogramms sind 
auch erläuterte Assem- 
blerlistings abgedruckt. 
Wenn erforderlich, sind 
Hinweise auf die Anpas- 


sungen an die drei ver- 
schiedenen CPCs vorhan- 
den, so daß das Buch so- 
wohl von 464 als auch 
von 664 und 6128-Besit- 
zern benutzt werden 
kann. 


DETAILS, DIE MAN 


SONST VERGEBLICH 
SUCHT 


Doch jetzt einen Über- 
blick über den Inhalt: 

Im Kapitel Hardware wer- 
den neben dem Z80A-Pro- 
zessor auch die anderen 
Bausteine erläutert, unter 
anderem auch das für Dis- 
kettenbesitzer so wichti- 
ge Floppy-ROM. Im 
nächsten Kapitel werden 
Details erläutert, die man 
in manch anderen Bü- 
chern vergeblich sucht. 
Und da geht’s auch los, 
mit den ersten Listings. 
Und bei den Listings 
merkt man es ganz deut- 
lich: Dieses Buch ist von 
Praktikern für User ge- 
schrieben, und zwar so, 
dafs man alles gedanklich 
nachvollziehen kann. Es 
wird zum Beispiel ein Mo- 
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nitor-Programm mittels 
Bausteinen immer mehr 
erweitert, mit dem man 
„Reisen“ in das Innere 
der CPC-Speicher unter- 
nehmen kann. Und 

wenn man dann mit dem 
Monitor-Programm im 
Speicher drin ist, läfit ei- 
nen das Buch nicht allein. 
In vielen, vielen Beispie- 
len wird immer wieder er- 
läutert, was das Pro- 
gramm dort auf den Moni- 
tor zaubert und wie man 
den Speicherinhalt zu 
verstehen und zu interpre- 
tieren hat. 


VIEL WISSENSWERTES 


So geht es Kapitel für 
Kapitel weiter: Was muß 
man machen, damit der 
CPC auch fremde Forma- 
te lesen kann? Wie ist das 
eigentlich mit dem Bild- 
schirm und seinem Spei- 
cher? Was sind Firmware- 
Packs? 

Besonders interessant für 
Diskettenbenutzer: 

Das Kapitel rund um die 
Diskette ist wirklich le- 
senswert. Dort gibt’s 
auch eine Menge Tips 
und Tricks. 

Im Kapitel über die Ma- 
schinenprogrammierung 
erfährt man alles Wissens- 
werte, um die Scheu der 
Einsteiger in dieses Ge- 
biet wirklich überflüssig 
zu machen. Was macht 
ein Assembler eigentlich 
und wozu braucht man 
den? Es würde den Rah- 
men dieses kleinen Arti- 
kels bei weitem spren- 
gen, wollte man alles auf- 
zählen, was im Buch alles 
erklärt und erläutert und 
mit Beispielen vermit- 
telt wird. 


FÜR ALLE GEEIGNET 


Ich kann das Buch nur 
empfehlen für die Schnei- 
der-Besitzer, die aus ih- 
rem CPC mehr herausho- 
len und verstehen wollen, 
was da eigentlich so im 
Inneren ihres Computers 
vorgeht. 
Übrigens: Die abgedruck- 
ten Listings gibt es auf 
Diskette, da kann man 
sich das Tippen sparen. 
(Manfred Eibisch) 


Zauberer und Drachen, Dämonen und Elfen, Mächte 
des Guten und finstere Gestalten des Bösen; all 
dies gehört nicht erst seit dem Buch ‚Herr der Ringe” 
zu den Bestsellern. Fantasygeschichten, mal blutig 
und mal poetisch, haben schon immer eine große 
Anhängerschaft und diese wächst weiter. Nach erfolg- 
reichen Verfilmungen kamen bald die ersten 
Computerspiele zu diesem Thema und das Genre 
ist heute nicht mehr aus den Software-Hitparaden 
wegzudenken. 


Die Abenteuer, die es am 
Monitor zu bestehen gilt, 
werden zum größten Teil 
in England oder in den 
USA ausgedacht. Und da 
zur Phantasie nun einmal 
auch die Sprache gehört, 
gerät der deutsche An- 
wender gar zu oft ins Hin- 
tertreffen. Was nutzt ei- 
ne Software, die sich um 
sprachliche Verständnis 
bemüht, wenn der An- 
wender sich nur unzurei- 
chend in dieser Fremd- 
sprache auskennt? 


EIN PARSER 


“SPRICHT” DEUTSCH 


Versuche dies zu ändern, 
also deutsche Adventures 
auf den Markt zu bringen, 
gab es viele. Im gleichen 
Zeitraum stiegen aber 
auch die Ansprüche der 
Spieler. Ein bloßes Text- 
abenteuer genügt heute 
nicht mehr. Bilder müs- 
sen dem Abenteuer einen 
optischen Reiz verschaf- 
fen, möglichst viele und 
bunte in hochauflösen- 
der Grafik. Dazu kommt 
natürlich jener leidige 
Parser. Parser wird das 
Modul des Programmes 
genannt, welches die Ein- 


gaben analysiert. Gerade 
bei der deutschen Spra- 
che stößt der Program- 
mierer auf Schwierigkei- 
ten. Die komplizierte 
Grammatik und der 
Wortreichtum haben 
schon manch gute Idee 
scheitern lassen, eben weil 
es schwierig ist, diese Be- 
fehle auszuwerten und zu 
verarbeiten. 

Deltacom, ein Duisbur- 
ger Softwareverlag, 
glaubt, mit dem Adven- 
ture „„Zorgos‘‘ die Pro- 
bleme überwunden zu 
haben und wir haben 

das Programm getestet. 
Es soll vorausgeschickt 
werden, daß gerade das 
Parser-Modul zum 
Glanzstück geriet. Dat 
wir mit Zorgos auch an- 
sonsten an einer ‚„,hei- 
fen‘ Sache waren, soll- 
te sich bald in mehrfa- 
cher Hinsicht heraus- 
stellen. 


NOBELAUSSTATTUNG EZ 


Zuerst lag uns nur eine 
Vorabversion des Pro- 
grammes vor und die 
Autoren waren so freund- 
lich, uns die Druck vorla- 
ge des Handbuches zu 
überlassen. Die endgülti- 
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ge Verkaufsversion über- 
raschte uns dann jedoch 
positiv. Neben der 10- 
seitigen Einleitung sind 
eine DIN A4-Landkarte 
und ein geheimnisvoller, 
versiegelter Brief beige- 
legt. Bemerkenswert ist 
diese noble Zusammen- 
stellung insbesondere we- 
5 gen des Verkaufspreises 
= von 49,— DM für die Dis- 


= kettenversion. Zum an- 


deren stellten wir uns die 
Frage, wie denn der ech- 
te Siegellack bei einer 
Serienproduktion auf- 
getragen wird. Sitzen 
momentan alle Delta- 


© com-Programmierer bei 
= Kerzenlicht und verpak- 


ken Ihre Programme’? 
Aber Spaß beiseite, der 
geheimnisvolle Brief ent- 
hält letztlich nichts an- 
deres als einen Auftrag 
an den Helden des Ad- 
ventures. Zu dessen Ver- 
ständnis ist aber ein klein 
wenig Kenntnis über die 
Vorgeschichte, den 
„Background“ des Spieles 
nötig. 


= DER AUFTRAG 


Aurin, ihn verkörpert der 


Spieler, ist der letzte 


7 Überlebende seines Hei- 


matdorfes, das von den 
Truppen des Tyrannen 
Murän überfallen wurde. 
Auf seiner Wanderung 

in ein besseres Leben ge- 
rät er in die Dienste des 
Zauberers Cyron, welcher 
gerade dabei ist, seinen 
Werdegang zum Magier 
zu vollenden. Für ihn er- 
ledigt Auriel kleine Rei- 
sen, um geschäftliche 
Angelegenheit zu besor- 
gen. Auf einer dieser 
Reisen erreicht ihn der 
geheimnisvolle Brief sei- 
nes Herrn und Meisters. 
Es ist ein neuer Auftrag, 
so wichtig, daß alle ande- 
ren Erledigungen abgebro- 
chen werden sollten. 
Wieder macht sich ein 
Tyrann auf, um mit ei- 
ner Zauberformel die Welt 
zu erobern. Er dringt 
rasch vor und nur Zorgos, 
ein mächtiger Magier, ist 
in der Lage, ihm Einhalt 
zu gebieten und die Welt 
zu retten. Auriels Auftrag 
ist es nun, Zorgos aufzu- 
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suchen und ihn um den 
Gegenzauber zu bitten. 
Nach dem Erhalt des Brie- 
fes schreiten Sie ein und 
lenken die Geschicke 
Auricels. 


DAS SPIEL 


Nach dem Einladen des 


Titelbildes, es ist das 
Schloß des Zauberers 
Cyrion, werden Sie auf- 
gefordert, eine Taste zu 
drücken und befinden 
sich schon mitten im 
Spielgeschehen. Die Hälfte 
des Bildschirmes wird von 
den Grafikbildern einge- 
nommen, die hervorra- 
gend programmiert sind. 
Trotz Modus 1, der eine 
bessere Auflösung gegen- 
über Modus 0 erlaubt, 
sind mehr als 4 Farben 

zu sehen. Den Bildern 
gelingt es darüber hinaus, 
eine zur Geschichte pas- 
sende Stimmung zu ver- 
breiten. Cyrions Schloß 
zum Beispiel steht in 
dunkler Nacht auf einem 
Berg und wirkt somit fast 
drohend. So fällt es leicht, 
sich auf das Spielgesche- 
hen in dieser fiktiven Welt 
einzustellen. Unter der 
Grafik wird in knappen, 
aber durchaus erläutern- 
den Sätzen die gegebene 
Situation geschildert. 
Damit sind wir auch 
schon beim Parser. Hält 


VERTRIEB: 
FACHHANDEL 


PREIS: 49,— DM 
(Diskette/Kassette) 


er tatsächlich, was Delta- 
com verspricht? Nun, der 
Dolmetscher von Zorgos 
ist wirklich gelungen. 

Ein paar wichtige Regeln 
sollte der Spieler je- 

doch beachten, um mit 
Verständnis rechnen zu 
können. Sofern die Be- 
fehlsform eines Satzes 
benutzt wird, sind sogar 
Kommas und Aufzählun- 
gen erlaubt, z.B.: ‚Nimm 
das Schwert, das Messer 
und die Goldmünze‘“. 
Auf die gleiche Weise kön- 
nen Sie sich mit den 
Wesen unterhalten, die 
Ihnen begegnen werden. 
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TEST 


Statt einer höflichen Fra- 
ge befehlen Sie einfach 
„Erzähl mir über ...‘“ und 
erhalten meistens eine 
Antwort. 

Daneben ist es möglich, 
dem Programm das eige- 
ne Tun zu schildern und 
so weiterzukommen. Statt 
der oben beschriebenen 
Befehlsform sagen Sie 
dann einfach ‚‚Ich sage zu 
Alian ...‘“. Sie sehen also, 
„Zorgos“ versteht auch 
die Ich-Form und sucht 
sich aus einer langen Ein- 
gabe, bei der andere Ad- 
ventures schon passen 
müssen, das richtige her- 
aus. Die Antworten kön- 
nen unter Umständen so- 
gar verblüffend sein. So 
erhielten wir auf den Be- 
fehl „‚Iss Boot“, den wir 
aus purem Jux eingaben, 
die überraschende Ant- 
wort: „Dies wird Ihnen 
nicht bekommen“. So- 
weit also die Auseinander- 
setzung über Geschmacks- 
fragen zwischen Kritiker 
und Programmierer. 
Natürlich muß der Parser 
auch einmal passen, ins- 
besondere dann, wenn 
noch mehr Unfug getrie- 
ben wird. Wenn man 
Glück hat, wird um eine 
genauere Definition ge- 
beten (Bitte benutzen Sie 
ein anderes Wort als ...). 
Unter Umständen schlägt 
man jedoch einen ande- 
ren Weg ein, nur weil das 
Programm auf einen Be- 
fehl folgende Antwort 
gab: ‚Dies wird Sie nicht 
weiterführen‘. Meist 
führt es eben doch wei- 
ter, allerdings muß man 
in kleineren Schritten ar- 
beiten. Auf den Hinweis, 
es sei ein Boot zu sehen, 
gaben wir zum Bei: niel 
ein: „„Rudere ...““. Die 
Antwort kam prompt, es 
hieß, dies würde uns 
nicht weiterführen. Wer 
jetzt abbricht und in eine 
andere Richtung geht, ist 
allerdings selber schuld. 
Der richtige Befehl lau- 
tet nämlich: ‚„‚Gehe ins 
Boot‘, und so weiter. 

Es sind eben die kleinen 
Schritte, die den Ad- 
venture-Freak auf dem 
Weg zu Zorgos weiterbrin- 
gen. Mehr oder gezielter 
zu schreiben würde Ihnen 
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aber den Spais verderben. 
Ein großes Plus von 
„Zorgos“ ist der relativ 
friedfertige Spielcharak- 
ter. Es geht nicht um 
Gewalt oder Mord, son- 
dern um die gefahrvolle 
Suche in einer fremdar- 
tigen Welt. Zu Beginn 
dieser Reise sind alle 
Personen oder Fabeltie- 
re sogar ausgesprochen 
freundlich und hilfsbe- 
reit. Erst nach und nach 
geraten Sie im Verlauf 
des Spieles an üble Ge- 
stalten. So müssen Sie 
auch Ihre Einstellung zu 
Zorgos dem Zauberer 
ändern, dessen wahren 
Charakter Sie erst ge- 
gen Ende des Spieles 
erfahren werden. Es 
geht also zu wie im rich- 
tigen Leben, man macht 
so seine Erfahrungen. 
Diese Methode erhöht 
aber auch die Motivation. 
Gerade bei Abenteuer- 
spielen verliert der Käu- 
fer oftmals die Lust, 
wenn er in den ersten 
Bildern ‚.festhängt“. 


FAZIT 


Zoreo:. ist ein klassisches 
Adventurespiel mit ho- 
hem Spielreiz. Die Grafik 
ist nicht nur technisch 
gut gelungen, sondern 
zeigt in vielen Bildern 
auch eine Atmosphäre 
entsprechend der Ge- 
schichte. Für Liebhaber 
des Fantasy-Genres 
kommt hinzu, dat diesem 
Programm kein Buch 
oder Film zugrunde liegt, 
sondern daß sich hier ein 
völlig neuer Stoff erarbei- 
ten lälst. Hier kann man 
eine Geschichte eben 
noch erleben, nicht nur 
Vorgefertigtes nachvoll- 
ziehen. Der CPC als 
Buchersatz? Warum 
nicht einmal! 

Alle Adventure-Freaks 
können sich schon ein- 
mal auf einen Wettbe- 
werb freuen, der im Zu- 
sammenhang mit dem 
Spiel geplant ist. Da die 
Aufgabenstellung und 
Preisverteilung noch in 
der Planung sind, werden 
wir erst im nächsten 

Heft mehr darüber ver- 
raten können. 
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